ExcelVBAでセルの検索

Sub Sample2()
    Dim FoundCell As Range    ''またはバリアント型(Variant)とする
    Set FoundCell = Range("A1").CurrentRegion.Find(What:="土屋")
    If FoundCell Is Nothing Then
        MsgBox "検索に失敗しました"
    Else
        FoundCell.Select
    End If
End Sub