Sub search_string()
Dim searchString As String
Dim found As Range

searchString = InputBox("Enter search string:") ' 検索する文字列を入力

If searchString = "" Then ' 入力された文字列が空の場合、処理を終了する
Exit Sub
End If

Set found = ActiveWorkbook.Sheets(1).Cells.Find(What:=searchString) ' ブック全体から検索

If Not found Is Nothing Then ' 検索結果が見つかった場合
found.Select ' 該当するセルを選択状態にする
MsgBox "Found at " & found.Address
Else ' 検索結果が見つからなかった場合
MsgBox "Not found"
End If
End Sub