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