How about this instead:

Application.Dialogs(xlDialogFormulaFind).Show

Al wrote:

I have been trying to use the Sendkeys command to open the
Find form. The short cut to Find is Ctrl+F; however I
cannot get it to work. I tried Sendkeys to bring up
Spellcheck and it worked fine. What am I doing wrong?
Here is my code:

Private Sub CommandButton1_Click()
Application.SendKeys "{^F}"
End Sub

TIA,
Al

--

Dave Peterson