A1のセルにA、B、C、何れかの文字が含まれているかどうか判別し、含まれている場合は、ダイアログで表示します。 Sub Sample91() If Range("A1").Value Like "*[A-C]*" Then MsgBox "文字が含まれてます" End If End Sub