Find & macro code

[TonyD]

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.

[Norman Jones]

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" <TonyD@discussions.microsoft.com> wrote in message
news:C869BB2B-DF2E-4416-A9F0-B8BC5636C8E2@microsoft.com...
>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.

[Tony]

"TonyD" wrote:

> 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.

Hi Norman copied the code as you mentioned by right-clicking the sheet,
selecting view code and then pasyting the code. I then saved the file and
reopened the file but no Find box appeared.