VBA Delete row based on criteria

[ORoxo]

Hello, guys
I want my macro to delete a specific row if the figure on column A is negative. Therefore, I have came up with the following code:

Private Sub CommandButton3_Click()Dim r As Integer
r = 1
If Cells(r, 1) < 0 Then
    Rows.Delete
Else
    r = r + 1
End If
End Sub

However, it's not working and I can't figure out why.

Can you help me?

Thanks,
ORoxo

 

[oldbrewer]

record a macro where you delete a complete row, look at that code and build it into your code...........

 

[oldbrewer]

Rows("17:17").Select
Selection.Delete Shift:=xlUp
End Sub