Hi Ben

Thanks for getting back with a solution. Have incorporated it and it is
working fine

Am grateful for your help

Tim

"Ben McClave" wrote in message
...
Tim,

The only workaround that I'm aware of outside of add-ins or complex find
macros is to use SendKeys. It is not ideal, as this method is not very
consistent. Still, using Excel 2010 with the following code in my
ThisWorkbook module successfully set the Find option to Within Workbook.
Note that if it does not work for you, you may need to note each keystroke
that you use to perform the task and adjust the macro accordingly.

Ben

Private Sub Workbook_Open()
Application.SendKeys
("^f{tab}{enter}{tab}{tab}{down}{down}{tab}{tab}{t ab}{tab}{tab}{tab}{tab}{tab}{enter}")
End Sub