Sub Auto_Open()
'Make sure that there are no running versions of Excel before starting this
SendKeys "%EF"              'Opens find dialog
SendKeys "%t"               'Opens Options section
SendKeys "%hW{Enter}"       'Selects Workbook option
SendKeys "{TAB 11}"         'Moves to Find What box
End Sub