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?