pop up before

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