Can't get Find Box

[EMoe]

Hello Programmers.

How can we through Macro, prompt the Find box to come up when an exce
spreadsheet is first opened. I tried to record this action by usin
CTRL+F, and find selecting Edit, then Find, but it doesn't show up i
the code.

Is there way to write this into a code?

Thanks,
EMo

 

[Norman Jones]

Hi E,

Try:

Application.Dialogs(xlDialogFormulaFind).Show

 

[Don Guillett]

try
Sub bringupfindbox()
Application.Dialogs(xlDialogFormulaFind).Show
End Sub

 

[Tom Ogilvy]

go into the VBE and select your project in the Project Explorer Window. Go
to the ThisWorkbook object and double click on it or select view code. In
the resulting module, from the left dropdown at the top, select Workbook and
from the right, select Open. This will put in a declaration for the
workbook.Open event. Add you code in that declaration to have it execute
when the workbook is opened and macros are not disabled:

Private Sub Workbook_Open()
With ThisWorkbook.worksheets(1)
.Activate
.Range("A1").Select
End With
Application.Dialogs(xlDialogFormulaFind).Show
End Sub

 

[EMoe]

Thank you very much *Norman, Don, and Tom*.

I will give it a shot.

Regards,
EMoe