Sub DeleteColumns ( )

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

End Sub


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

maybe this

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

mike


"Sal" wrote:

Sub DeleteColumns ( )

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

End Sub


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

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

"Mike H" wrote:

maybe this

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

mike


"Sal" wrote:

Sub DeleteColumns ( )

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

End Sub


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