Excel 2010 popup find box

[w0ls0n]

We use Excel 2010 in our workplace and some of our vendors send us excel sheets that have up to 30 or more worksheets within Excel. When I first started with the company a few years ago there was a very helpful excel macro we used that has a very useful feature. When you open any excel sheet it would "popup" a find box and change the function to search the entire workbook by default. This is the same find box when you hit CTRL-F. This has been working great up until Windows 8.1. Since having installed Windows 8.1 on several workstations it has an unusual feature. When any excel sheet is opened the NUM LOCK and and SCROLL LOCK functions turn off. It only does this on Windows 8.1 (I confirmed the same behavior on two different workstations). Here is the macro:


Option Explicit
Sub Workbook_Open()
Application.CommandBars.ExecuteMso "FindDialogExcel"
SendKeys "%t" 'Opens Options section
SendKeys "%hW{Enter}" 'Selects Workbook option
SendKeys "{TAB 11}" 'Moves to Find What box
End Sub


Any ideas?

 

[AlphaFrog]

This will do the same thing. The search within Workbook option is not visible on this dialog, but it is set.

[color=darkblue]Option[/color] [color=darkblue]Explicit[/color]
[color=darkblue]Sub[/color] Workbook_Open()
Application.Dialogs(xlDialogFormulaFind).Show "", xlWorkbook
[color=darkblue]End[/color] [color=darkblue]Sub[/color]