Hi Tony,

Try:
'=============
Private Sub Workbook_Open()
Application.Dialogs(xlDialogFormulaFind).Show
End Sub
'<<=============

This is worksheet event code and should be pasted into the worksheets's code
module (not a standard module and not the workbook's ThisWorkbook module):

Right-click the worksheet's tab
Select 'View Code' from the menu and paste the code.
Alt-F11 to return to Excel.


---
Regards,
Norman



"TonyD" wrote in message
...
I want to have the Find & Replace dialog box open as soon as I open a
workbook so that I can scan in a locator number and do a search for all
records that match.
Does anyone one know what code I can use and where I would place it for
this
purpose.