I want to replace the negative numbers in a given range of cells. I need that range of cells to become blanks, so that i can filter that range and delete the entire rows.



Yogesh

__________________
Yogesh

Hi,

This code is for u

Sub DelNegs()
Dim Rng As Range
For Each Rng In Selection
    If Rng.Value < 0 Then
        Rng.ClearContents
    End If
Next
End Sub


-vemaju