>>218
Sub kensaku()
　'Range.Find()をCallして初期値を設定(<-引数の設定が保存されるのを利用)
　Call Cells.Find(What:="", LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False)

　'ダイアログ表示
　Const find_replace = 1849
　Application.FindFormat.Clear
　Application.CommandBars.FindControl(ID:=find_replace).Execute
End Sub