Hi!
I have 200+ workbooks of identical format. They all comprise 3 worksheets. I need to add a column called 'Status' to the second and third sheet of each workbook in a specific location. I have a seperate worksheet containing the full path for each of the 200+ workbooks. I have the following macro to insert the columns:
Sub Insert_Columns()
Sheets("Sheet2").Select
Columns("AA:AA").Select
Selection.Insert Shift:=xlToRight
Range("AA1").Select
ActiveCell.FormulaR1C1 = "Status"
Range("A1").Select
Sheets("Sheet3").Select
Columns("T:T").Select
Selection.Insert Shift:=xlToRight
Range("T1").Select
ActiveCell.FormulaR1C1 = "Status"
Range("A1").Select
Sheets("Sheet1").Select
Range("A1").Select
End Sub
Could anyone please provide some help as to how to run this macro on each of the filenames I have in my list - otherwise it could take some time!!
Many thanks,
Nibbles
I have 200+ workbooks of identical format. They all comprise 3 worksheets. I need to add a column called 'Status' to the second and third sheet of each workbook in a specific location. I have a seperate worksheet containing the full path for each of the 200+ workbooks. I have the following macro to insert the columns:
Sub Insert_Columns()
Sheets("Sheet2").Select
Columns("AA:AA").Select
Selection.Insert Shift:=xlToRight
Range("AA1").Select
ActiveCell.FormulaR1C1 = "Status"
Range("A1").Select
Sheets("Sheet3").Select
Columns("T:T").Select
Selection.Insert Shift:=xlToRight
Range("T1").Select
ActiveCell.FormulaR1C1 = "Status"
Range("A1").Select
Sheets("Sheet1").Select
Range("A1").Select
End Sub
Could anyone please provide some help as to how to run this macro on each of the filenames I have in my list - otherwise it could take some time!!
Many thanks,
Nibbles