Type Info:
FindResultsWindow As FindResultsWindow
Dim FindResWnd As FindResultsWindow Set FindResWnd = Application.Windows.FindResultsWindow