Why not

For Each cell In Range("B7:B100")
If LCase(cell.Value) = "0" Then
cell.Resize(1, 5).ClearContents
End If
Next

to delete B:F for rows where the cell in B contains 0.
--
Regards,
Tom Ogilvy


"trward79" wrote in message
...
Nevermind, I set the followin in place

For Each cell In Range("B7:F100")
If LCase(cell.Value) = "0" Then
cell.Resize(1, 5).ClearContents
End If
Next



"trward79" wrote:

I have a spreadsheet that has alot of 0.00 values in a range of B8:F95 I
need
these values to be cleared so I can print with no values in place.