Wildcard to activate another window
A procedure to activate the window using a search string. If you are sure
there is not other workbook opened which contain the numeric 1 you can usel
this as
ActivateBookwithKeyword ("1")
Sub ActivateBookwithKeyword(strSearch As String)
For intTemp = 1 To Workbooks.Count
If InStr(1, Workbooks(intTemp).Name, strSearch, 1) < 0 Then
Workbooks(intTemp).Activate
Exit Sub
End If
Next
End Sub
If this post helps click Yes
---------------
Jacob Skaria
"Rob" wrote:
Hello. I'm trying to make another window active which will have the file
name of "WIPDrilldownExport(__).xls", where only one character appears in the
parentheses and could be a 1, 2, or 3. The line
Windows("WIPDrilldownExport(#).xls").Activate
doesn't work. Thanks in advance.
|