KoE
04-17-2009, 01:34 AM
Guys,
I'm trying to insert and label new columns in multiple worksheets, but the code inserts and labels the new columns in an active & unselected sheet :banghead:
the code is as follows:
Sub Insert_Add_Col_To_Reflect_Transfer_Orders()
'
' Insert_Add_Col_To_Reflect_Transfer_Orders Macro
' insert additional columns to reflect transfer orders & their dates; up to 5 transfers
'
' Keyboard Shortcut: Ctrl+z
'
Application.ScreenUpdating = False
Dim sh As Worksheet
On Error GoTo 0
Application.DisplayAlerts = True
For Each sh In ActiveWorkbook.Sheets(Array("johor", "pulau pinang", "sabah", "sarawak", "selangor", "terengganu", "kedah", "kelantan", "melaka", "negeri sembilan", "pahang", "perak", "perlis", "ibu pejabat", "wp kl"))
With sh
Range("V1:AE1").Value = Array("Penempatan Pertama", "Tarikh", "Penempatan Kedua", "Tarikh", "Penempatan Ketiga", "Tarikh", "Penempatan Keempat", "Tarikh", "Penempatan Kelima", "Tarikh")
End With
Application.ScreenUpdating = True
Next
End Sub
Would be mighy glad if someone can point to my mistakes :bow:
I'm trying to insert and label new columns in multiple worksheets, but the code inserts and labels the new columns in an active & unselected sheet :banghead:
the code is as follows:
Sub Insert_Add_Col_To_Reflect_Transfer_Orders()
'
' Insert_Add_Col_To_Reflect_Transfer_Orders Macro
' insert additional columns to reflect transfer orders & their dates; up to 5 transfers
'
' Keyboard Shortcut: Ctrl+z
'
Application.ScreenUpdating = False
Dim sh As Worksheet
On Error GoTo 0
Application.DisplayAlerts = True
For Each sh In ActiveWorkbook.Sheets(Array("johor", "pulau pinang", "sabah", "sarawak", "selangor", "terengganu", "kedah", "kelantan", "melaka", "negeri sembilan", "pahang", "perak", "perlis", "ibu pejabat", "wp kl"))
With sh
Range("V1:AE1").Value = Array("Penempatan Pertama", "Tarikh", "Penempatan Kedua", "Tarikh", "Penempatan Ketiga", "Tarikh", "Penempatan Keempat", "Tarikh", "Penempatan Kelima", "Tarikh")
End With
Application.ScreenUpdating = True
Next
End Sub
Would be mighy glad if someone can point to my mistakes :bow: