>>99
個人的意見だけど
If TypeName(Cells(2, 2).Value) = "string" Then
と書けてしまうんで
判定には使いずらいと思うんだけど