Sorry about the delay in not getting back to you. Here is what I came
up with. Let me know if this is what you want it to do...


Sub test()

Dim i As Integer

i = 3

Do While Cells(1, i).Value 0
If Cells(1, i).Value = "Yes" Then
i = i + 1
Else:
Dim cellA As Variant
Dim cellB As Variant
[cellA] = Cells(8, i).Address
[cellB] = Cells(65536, i).Address
Cells(1, i).Select
Range("" & [cellA] & ":" & [cellB] & "").Delete Shift:=xlUp
i = i + 1
End If

Loop

End Sub


--
dok112
------------------------------------------------------------------------
dok112's Profile: http://www.excelforum.com/member.php...o&userid=10581
View this thread: http://www.excelforum.com/showthread...hreadid=532484