Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Open workbook by name

Sub Array2()   Dim Data As Variant, myWorkbook As Workbook   Dim i As Integer   Data = Array("A", "B", "C", "D")   For i = LBound(Data) To UBound(Data)     Set myWorkbook = Workbooks.Open(FileName:=Data(i) & ".xls")     MsgBox myWorkbook.Name     myWorkbook.Close SaveChanges:=True   Next i End Sub