open workbook

[Ranjith Kurian]

I have created a macro code to formate my excel file below is the code

sub test()
ChDir "C:\N"
Workbooks.Open Filename:="C:\N\AU.xls"
Rows("1:1").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End sub

The above code work only in file AU.xls, i would like to have a short macro
code to open my other three files (BU.xls, DU.xls, EF.xls) and perform the
same action to it.

Is it possible to put the formate part in loop.

 

[Jacob Skaria]

Try this untested code....

Sub test()

Dim intTemp As Integer
Dim arrWorkBook As Variant

arrWorkBook = Array("AU.xls", "BU.xls", "DU.xls", "EF.xls")

For intTemp = 0 To UBound(arrWorkBook)
Workbooks.Open Filename:="C:\N\" & arrWorkBook(intTemp)
Rows("1:1").Select
With Selection.Interior
..ColorIndex = 6
..Pattern = xlSolid
End With
Next
End Sub

 

[Ranjith Kurian]

thanks a lot

Try this untested code....

Sub test()

Dim intTemp As Integer
Dim arrWorkBook As Variant

arrWorkBook = Array("AU.xls", "BU.xls", "DU.xls", "EF.xls")

For intTemp = 0 To UBound(arrWorkBook)
Workbooks.Open Filename:="C:\N\" & arrWorkBook(intTemp)
Rows("1:1").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Next
End Sub

 

[Jacob Skaria]

Cheers..

If this post helps click Yes

 

[Mike H]

Try this

Sub test()
BookData = "BU.xls,DU.xls,EF.xls"
MyBook = Split(BookData, ",")
For x = 0 To UBound(MyBook)
Workbooks.Open Filename:="C:\N\" & MyBook(x)
ActiveSheet.Rows("1:1").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
ActiveWorkbook.Close savechanges:=True
Next
End Sub

Mike