Sub Sample6()

    Dim i As Long
    
    For i = 1 To 5
    
        If TypeName(Cells(i, "A").Value) = "String" Then
        
            MsgBox "このセルのデータは文字列です"
        
        End If
    
    Next i
    
End Sub

注意: TypeName(Cells(i, "A").Value) = "String"
.value は省略してはいけない。
StringのSは大文字でなくてはいけない。TypeNameの結果のまま使うこと。

その他のタイプを判定したい場合は、TypeName(Cells(i, "A").Value) の結果をイコールで結んで判定すれば良い。