>>97
if vartype(cells(2,2).value) = vbString then
if vartype(cells(2,2).value) = 10 then
if typename(cells(2,2).value) = "String" then

typenameかねぇ