Macro to delete row within a specified range or disallow if out of range

[Mayweed]

I’m trying to write a macro that deletes the row of the active cell but if the selected cell is out of a specified range a message is displayed.
Any help is appreciated, the code I have so far is below.

If ActiveCell.Range("A13, C12") Then
ActiveCell.EntireRow.Delete
Else
MsgBox "You must select a cell within the range A13 to C12"
End If

[jwright650]

Will it hurt anything if the user ignores the msgbox and continues anyway?

[Mayweed]

As long as the user can only delete a row within the specified range (designated by selecting a cell in the desired row), the MsgBox can be ignored.

[Mayweed]

If I totally deny reading a post by shg concerning ws selectionChange events on another forum, I can honestly say that I've solved this one myself!

The only caveat that I'm aware of; if using this code on a protected worksheet, then cell B1 must be unlocked.
If it helps anyone, I've attached a workbook.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim myrange As Range
    On Error Resume Next
    Set myrange = Intersect(Range("A2:C20"), Target)
    If Not myrange Is Nothing Then
         Range("B1") = "True"
         Else
         Range("B1") = "False"
    End If
End Sub


Sub DelRowProtected()
ActiveSheet.Unprotect Password:=""
If Range("B1") = "True" Then
ActiveCell.EntireRow.Delete
Else
MsgBox "Select a cell in the range A2 to C20 to delete the row"
End If
ActiveSheet.Protect Password:=""
End Sub