Can't get Find Box

[EMoe]

Hello Programmers.

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

Is there way to write this into a code?

Thanks,
EMoe

[Norman Jones]

Hi E,

Try:

Application.Dialogs(xlDialogFormulaFind).Show


---
Regards,
Norman



"EMoe" <[email protected]> wrote in message
news:[email protected]...
>
> Hello Programmers.
>
> How can we through Macro, prompt the Find box to come up when an excel
> spreadsheet is first opened. I tried to record this action by usinf
> CTRL+F, and find selecting Edit, then Find, but it doesn't show up in
> the code.
>
> Is there way to write this into a code?
>
> Thanks,
> EMoe
>
>
> --
> EMoe
> ------------------------------------------------------------------------
> EMoe's Profile:
> http://www.excelforum.com/member.php...o&userid=23183
> View this thread: http://www.excelforum.com/showthread...hreadid=483123
>

[Don Guillett]

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

--
Don Guillett
SalesAid Software
[email protected]
"EMoe" <[email protected]> wrote in message
news:[email protected]...
>
> Hello Programmers.
>
> How can we through Macro, prompt the Find box to come up when an excel
> spreadsheet is first opened. I tried to record this action by usinf
> CTRL+F, and find selecting Edit, then Find, but it doesn't show up in
> the code.
>
> Is there way to write this into a code?
>
> Thanks,
> EMoe
>
>
> --
> EMoe
> ------------------------------------------------------------------------
> EMoe's Profile:
http://www.excelforum.com/member.php...o&userid=23183
> View this thread: http://www.excelforum.com/showthread...hreadid=483123
>

[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

--
Regards,
Tom Ogilvy

"EMoe" <[email protected]> wrote in message
news:[email protected]...
>
> Hello Programmers.
>
> How can we through Macro, prompt the Find box to come up when an excel
> spreadsheet is first opened. I tried to record this action by usinf
> CTRL+F, and find selecting Edit, then Find, but it doesn't show up in
> the code.
>
> Is there way to write this into a code?
>
> Thanks,
> EMoe
>
>
> --
> EMoe
> ------------------------------------------------------------------------
> EMoe's Profile:
http://www.excelforum.com/member.php...o&userid=23183
> View this thread: http://www.excelforum.com/showthread...hreadid=483123
>

[EMoe]

Thank you very much Norman, Don, and Tom.

I will give it a shot.

Regards,
EMoe