Delete Columns

[Sal]

Sub DeleteColumns ( )

Range("K:K,M:M,P,S:S").Select
Selection.Delete Shift:=xlToLeft

End Sub


Is there a cleaner way to delete these columns than the code above?

 

[Mike H]

maybe this

Range("K:K,M:M,P,S:S").Delete

mike

 

[Sal]

Exactly what I was looking for. Thank you for the help.