I keep getting errors running the following macro. I am a novice at this but it seems simple enough though I keep getting the error in different places in the code each time I open and close the worksheet.


Sub COFormat()
'
' CriticalOrdersFormat Macro
'

Sheets("Data").Select

Columns("I:L").Select
Selection.Delete Shift:=xlToLeft
Columns("O:P").Select
Selection.Delete Shift:=xlToLeft
Columns("Q:R").Select
Selection.Delete Shift:=xlToLeft
Columns("T").Select
Selection.Delete Shift:=xlToLeft
Columns("A").NumberFormat = "m/d/yyyy;@"
Columns("Q").NumberFormat = "m/d/yyyy;@"
Columns("R").NumberFormat = "m/d/yyyy;@"
Columns("S").NumberFormat = "m/d/yyyy;@"
Columns("U").NumberFormat = "m/d/yyyy;@"
Columns("X").NumberFormat = "m/d/yyyy;@"
Columns("Y").NumberFormat = "m/d/yyyy;@"
Columns("AB").NumberFormat = "m/d/yyyy;@"

End Sub