Sub Array2() Dim avData As Variant, myWorkbook As Workbook Dim i As Integer
avData = Array("North", "South", "East", "West")
For i = LBound(avData) To UBound(avData)
Set myWorkbook = Workbooks.Open(FileName:=avData(i) & ".xls")
'Process data here
myWorkbook.Close SaveChanges:=True
Next i End Sub