if Application.Evaluate(cells(1,1).value) then
end if
は?