Sub カタカナ_かどうか判定する()
チェック文字 = Range("A1")
チェックする文字数 = Len(チェック文字)
For 何文字目 = 1 To チェックする文字数 '1文字目~最後の文字まで繰り返す
検査文字 = Mid(チェック文字, 何文字目, 1) '左から順番に1文字づつチェック
If Not 検査文字 Like "[ア-ン]" Then '「Not」=条件不一致か判定
MsgBox "カタカナ以外も含まれています"
End
End If
Next 何文字目
MsgBox "すべてカタカナです" '文字数分チェックして問題なければOK通知
End Sub