VBA - Activate a workbook

[xljunkie]

Pretty new to VBA so I'm in the beginning stages of learning this stuff.

I have 3 workbooks open:

1. Query.xls
2. Macro.xls
3. April.xls

The 3rd one's file name changes from month to month. I want to write code in the Macro workbook that will activate the April workbook.

Is there such a way that I can have a list of months (Jan, Feb, Mar, etc) within the Macro workbook and have code activate the workbook whose first 3 letters are contained in this list? Is there a better way to do it (i.e. have the code activate whatever workbook is not named Query or Macro)?

 

[VoG]

Try like this

Sub b()
Dim wb As Workbook
For Each wb In Workbooks
    If wb.Name <> "Query.xls" And wb.Name <> "Macro.xls" Then
        wb.Activate
        Exit For
    End If
Next wb
End Sub

 

[xljunkie]

Thanks for the reply. This looks like it will work. I'll try it out at work on Monday.