I ran this with no errors, is your sheet protected
Sub COFormat()
Columns("T").Delete Shift:=xlToLeft
Columns("Q:R").Delete Shift:=xlToLeft
Columns("O:P").Delete Shift:=xlToLeft
Columns("I:L").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
Bookmarks