Try this:
If Selection.Value < 7 Then
Range("E" & Selection.Row & ":" & "J" & Selection.Row).Select
Selection.Delete Shift:=xlToLeft
End If
--
Bearacade
------------------------------------------------------------------------
Bearacade's Profile:
http://www.excelforum.com/member.php...o&userid=35016
View this thread:
http://www.excelforum.com/showthread...hreadid=552003