Maybe

Sub DeleteLines()
Dim StartRow As Long
StartRow = Cells(Rows.Count, 2).End(xlUp).Row
If StartRow = 20 Then
Cells(StartRow, 1).EntireRow.Delete
Else
MsgBox "You can't delete a row under 20"
End If
End Sub

Mike

"K" wrote:

On Mar 26, 9:28 am, "Per Jessen" wrote:
Hi

Try this before the delete statement.

If activecell.row<= 20 then
msgbox ("You cant delete ....")
exit macro
end if

Regards,

Per

"K" skrev i ...



Hi, I have two macros set on two buttons in my spreadsheet. One macro
add entire row and one macro delete entire row. I want macro in my
Sheet Module that if I cross deleting rows by deleting row macro from
Row 20 in sheet then Message should come up saying that "YOU CANT
DELETE ROWS FROM THIS LINE" and undo the delete row. But below from
Row 20 it should not say anything. Please if anybody help. Thanks- Hide quoted text -

- Show quoted text -

please see the code below the one delete the rows. I have tried
putting macro the one you told me but its not working.
Sub DeleteLines()
Dim StartRow As Long
StartRow = Cells(Rows.Count, 2).End(xlUp).Row
Cells(StartRow, 1).EntireRow.Delete
End Sub