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