Wildcard to activate another window

[Rob]

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.

 

[Dave Peterson]

Option Explicit
Sub testme()
Dim myWindow As Window
For Each myWindow In Application.Windows
If LCase(myWindow.Caption) Like LCase("WIPDrilldownExport(?).xls") Then
myWindow.Activate
Exit For
End If
Next myWindow
End Sub

I usually go through the workbooks collection so I don't have to worry about any
modifications to the window's caption:

Option Explicit
Sub testme()
Dim wkbk As Workbook
For Each wkbk In Application.Workbooks
If LCase(wkbk.Name) Like LCase("WIPDrilldownExport(?).xls") Then
wkbk.Activate
Exit For
End If
Next wkbk
End Sub

 

[Jacob Skaria]

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