>>808
ちょっと違うけど一応検索
Application.Dialogs(xlDialogFormulaFind).Show

ワークシートがアクティブになってれば
SendKeys("^F")