For next loop with diff WB names?

[mattd4385]

Not sure why the following code will not work.

-----------------------------------------------------

Sub Plant_Tabs ()

WB1 = "GEN.xls"
WB2 = "XFM.xls"
WB3 = "CB.xls"

For i = 1 To 3
Windows("WB" + i).Activate

'more code will be placed here

Next i

End Sub

 

[VoG]

Try like this

Sub Plant_Tabs()
Dim WB(1 To 3) As String
WB(1) = "GEN.xls"
WB(2) = "XFM.xls"
WB(3) = "CB.xls"

For i = 1 To 3
Windows(WB(i)).Activate

'more code will be placed here

Next i

End Sub

 

[mattd4385]

thank you agian for your help