pop up before

[graiggoriz]

Hello,

I am using the below macro to delete rows. Would you know how I can insert a message before running the macro such as "are you sure you'd like to delete the row?"

Sub REMOVE()
    rw = ActiveCell.Row
    If rw >= 12 And rw <= 28 Then
    Else
        ActiveSheet.Unprotect Password:="p@ssw0rd!"
        Set rng = ActiveCell
        ActiveCell.EntireRow.Delete
        ActiveSheet.Protect Password:="p@ssw0rd!", AllowFormattingCells:=True
    End If
End Sub

Many Thanks,
Graig

[Speshul]

Sub Remove()

MsgBox "Are you sure?", vbYesNo
If vbNo Then Exit Sub
    rw = ActiveCell.Row
    If rw >= 12 And rw <= 28 Then
    Else
        ActiveSheet.Unprotect Password:="p@ssw0rd!"
        Set Rng = ActiveCell
        ActiveCell.EntireRow.Delete
        ActiveSheet.Protect Password:="p@ssw0rd!", AllowFormattingCells:=True
    End If



Exit Sub


End Sub

[Fotis1991]

Try

Sub REMOVE()
Dim vbConfirm
vbConfirm = MsgBox("ARE YOU SURE?", vbQuestion + vbYesNo, "Fotis1991")
If Not vbConfirm = vbYes Then Exit Sub
    rw = ActiveCell.Row
    If rw >= 12 And rw <= 28 Then
    Else
        ActiveSheet.Unprotect Password:="123"
        Set Rng = ActiveCell
        ActiveCell.EntireRow.Delete
        ActiveSheet.Protect Password:="123", AllowFormattingCells:=True
    End If
End Sub

[Speshul]

That's what i get for no testing.


Amendment to my original response;

Dim a
a = MsgBox("Are you sure?", vbYesNo)
If a = vbno Then Exit Sub

[JosephP]

add

If MsgBox("Are you sure?", vbYesNo) = vbNo Then Exit Sub

[graiggoriz]

Following the reply by order, I tried out Fortis Macro and works perfectly.

Many Thanks Guys!!
Graig