Delete row but only after row 4, i have a code in use to edit

[ipbr21054]

I am using the code bellow but would like it to only delete the row if its after row 4.
Dont wish to delete row 1,2 or 3

Thanks

Private Sub DeleteRow_Click()
Dim answer As Integer
Dim r As Long
If ActiveCell.Column = 1 Then
r = ActiveCell.Row '**************
answer = MsgBox("DELETE CUSTOMERS ROW " & ActiveCell.Value, vbYesNo + vbCritical, "DELETE CUSTOMERS ROW")
If answer = vbYes Then
ActiveCell.EntireRow.Delete
MsgBox "CUSTOMERS ROW NOW DELETED", vbInformation
Range("A2").Select
Range("A1").Select
End If
Else
MsgBox "YOU NEED TO SELECT A CUSTOMER IN COLUMN A", vbCritical, "SELECT CUSTOMER MESSAGE"
End If

End Sub

 

[dreid1011]

You could change this line:

If answer = vbYes Then

to this:

If answer = vbYes And r >= 4 Then

 

[ipbr21054]

@Fluff

With regards the locked post see screen shot I was told you have a draft in place & i had to wait 74 seconds.
Once 74 seconds was up the post then posted itself.

 

[Fluff]

Draft posts do not get sent automatically, also you should have to wait for any period of time.

 

[ipbr21054]

I didn’t press send or ok etc.
I waited 74 seconds.