code to bring up "find" box and set defaults

[fry]

Hi All

Does anyone know this??

Instead of typing CTRL-F to popup the search box and then select "search the whole workbook" is there a way to code this so that the window pops up and the default is the whole workbook??

Many Thanks in advance

 

[Stormseed]

The code below will open the Find Dailog Box when executed on a Worksheet, namely "Sheet1" :

Option Explicit

Sub LaunchFindDialog()
      On Error GoTo Finish
      Sheets("Sheet1").Activate
      Application.CommandBars("Edit").Controls("Find...").Execute
Finish:
End Sub

 

[fry]

Thanks stormseed but I need it to open the find dialog box and in the options have workbook selected as opposed to worksheet.

I've also found this...

Application.Dialogs(xlDialogValueFind).Show

but I dont know if there are any options available????

 

[Stormseed]

I would rather do that manually by pressing Ctrl+Shift+PgUp and PgDown and Ctrl+A and then execute the macro.

Well, I can't think of a code that would do this first and then pop the Find box...maybe one of the board members wud be able to help you.

 

[fry]

Well, this one might be the one that got away!!

I've been searching on the interweb and it has been suggested that modifying the "within" bit in the dialog box can't be done?!?!?

I'm stunned.....why would this one be the ONLY one you can't modify???