activate window with partial filename

[jordanburch]

Hi all,

I have the below code. I just want it to activate the open window with a partial filename however its not working. Any ideas? basically just activate the window with the partial name Version in it.

Jordan

Windows("*Version.xlsx").Activate

 

[Joe4]

How about something like this?

Sub SelectWorkbook()

Dim wb As Workbook
Dim wb1 As Workbook

For Each wb In Application.Workbooks
    If InStr(1, wb.Name, "Version") > 0 Then
        Set wb1 = wb
    End If
Next wb

If wb1 Is Nothing Then
    MsgBox "Cannot find open file with that name"
Else
    wb1.Activate
End If

End Sub

 

[jordanburch]

How about something like this?

Sub SelectWorkbook()

Dim wb As Workbook
Dim wb1 As Workbook

For Each wb In Application.Workbooks
    If InStr(1, wb.Name, "Version") > 0 Then
        Set wb1 = wb
    End If
Next wb

If wb1 Is Nothing Then
    MsgBox "Cannot find open file with that name"
Else
    wb1.Activate
End If

End Sub

YOU DAH MAN JOE! THANKS AGAIN BUDDY!
Jordan

 

[Joe4]

You are welcome.
Glad I was able to help!