Sub Insert_Add_Col_To_Reflect_Transfer_Orders()
' Keyboard Shortcut: Ctrl+z
Application.ScreenUpdating = False
For i = 1 To Sheets.count
Select Case Sheets(i).Name
Case "johor", "pulau pinang", "sabah", "sarawak", "selangor", "terengganu", "kedah", "kelantan", "melaka", "negeri sembilan", "pahang", _
"perak", "perlis", "ibu pejabat", "wp kl"
Sheets(i).Range("V1:AE1") = Array("Penempatan Pertama", "Tarikh", "Penempatan Kedua", "Tarikh", "Penempatan Ketiga", "Tarikh", _
"Penempatan Keempat", "Tarikh", "Penempatan Kelima", "Tarikh")
End Select
Next i
End Sub