Error running delete columns macro

[TomNSD]

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.

Please Login or Register  to view this content.

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

Please Login or Register  to view this content.

[Sean Thomas]

Hi,first of all you should place your code between tags - select your text then hit the # on the tool bar.

Regards your problem, you need to deal with the columns furthest from cloumn A first.
If you delete say column B, then cloumn C becomes B, D becomes C etc.

[GaidenFocus]

I ran this with no errors, is your sheet protected

Please Login or Register  to view this content.