Snasui Excel Forum

Code: Select all

Sub FilStatus()
    Dim rAll As Range
    Dim r As Range
    With Sheets("Form")
        Set rAll = .Range("D2", .Range("A" & Rows.Count) _
            .End(xlUp).Offset(0, 3))
    End With
    For Each r In rAll
        If r = "Delete" Then
            r.Offset(0, -1) = 0
            r.Offset(0, -2) = 0
        End If
    Next r
End Sub