Do Not Delete lines

[imback2nite]

Thank you for looking. I'm having problems with to top part of this code. What I want is for the user to be unable to delete rows 1 through 10. Sometimes this code will work, sometimes not. What am I doing wrong?

Private Sub CommandButton1_Click()
        If ActiveCell.Rows >= 10 Then
        MsgBox "You cannot insert a new line here"
    Exit Sub
    Else
    End If
    ActiveSheet.Unprotect
    Dim answer As Integer           'Delete Lines
        answer = MsgBox("Have You Selected The Row(s) To Delete?", vbQuestion + vbYesNo + vbDefaultButton2, "Delete Row")
            If answer = vbYes Then
                Selection.EntireRow.Delete
    Else
            If answer = vbNo Then
                MsgBox "Please Select Row To Delete.", , "Delete Row"
        End If
        End If
     Application.ScreenUpdating = False
        lr = Cells.Find("*", Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row
        Range("K9").Formula = "=IF($K8="""","""",IF(AND($H9="""",$J9=""""),"""",$K8+$J9-$H9))"
        Range("K9").AutoFill Range("K9:K" & lr)
End Sub

 

[Michael M]

Shouldn't this line be

 If ActiveCell.Rows >= 10

 If ActiveCell.Rows <= 10

 

[imback2nite]

Shouldn't this line be

 If ActiveCell.Rows >= 10

 If ActiveCell.Rows <= 1Sigh

Shouldn't this line be

 If ActiveCell.Rows >= 10

 If ActiveCell.Rows <= 10

In fact I tried that too. It works for a few times, then I can resume deleting lines, where ever.

 

[Michael M]

Ok, try

Private Sub CommandButton1_Click()
    ActiveSheet.Unprotect
Dim answer As String        'Delete Lines
    answer = MsgBox("Have You Selected The Row(s) To Delete?", vbQuestion + vbYesNo + vbDefaultButton2, "Delete Row")
        If answer = vbYes Then
        If Selection.Row <= 10 Then
        MsgBox "You cannot insert a new line here"
        Exit Sub
        End If
        Selection.EntireRow.Delete
Else
            MsgBox "Please Select Row To Delete.", , "Delete Row"
    End If
 Application.ScreenUpdating = False
    lr = Cells.Find("*", Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row
    Range("K9").Formula = "=IF($K8="""","""",IF(AND($H9="""",$J9=""""),"""",$K8+$J9-$H9))"
    Range("K9").AutoFill Range("K9:K" & lr)
End Sub

 

[imback2nite]

Ok, try

Private Sub CommandButton1_Click()
    ActiveSheet.Unprotect
Dim answer As String        'Delete Lines
    answer = MsgBox("Have You Selected The Row(s) To Delete?", vbQuestion + vbYesNo + vbDefaultButton2, "Delete Row")
        If answer = vbYes Then
        If Selection.Row <= 10 Then
        MsgBox "You cannot insert a new line here"
        Exit Sub
        End If
        Selection.EntireRow.Delete
Else
            MsgBox "Please Select Row To Delete.", , "Delete Row"
    End If
Application.ScreenUpdating = False
    lr = Cells.Find("*", Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row
    Range("K9").Formula = "=IF($K8="""","""",IF(AND($H9="""",$J9=""""),"""",$K8+$J9-$H9))"
    Range("K9").AutoFill Range("K9:K" & lr)
End Sub

That is perfect! Thank you so much! Once again proving this is the site to go for answers! Once again, Thank you!

 

[Michael M]

That is perfect! Thank you so much! Once again proving this is the site to go for answers! Once again, Thank you!

Glad to help..??