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