Sub キーワード単語を検索チェックする()
    
    'A列に「たんご」（xlWhole = 完全一致）があるかチェックする
    Set 指定単語 = Range("A:A").Find(What:="たんご", LookAt:=xlWhole)
    
    '指定単語が ない（Nothing）かチェックする
    If 指定単語 Is Nothing Then
    
        MsgBox "A列に「たんご」がありません"
        
    Else
    
        MsgBox "A列に「たんご」があります"
        
    End If

End Sub