Hi
one way: To prevent any deletion if row 1-8 are within the selection,
try

Sub DeleteMealItem()
If Intersect(Selection, Range("1:8")) Is Nothing Then
ActiveSheet.Unprotect
Selection.EntireRow.Delete
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
else
msgbox "Rows 1- 8 cannot be deleted"
end if
End Sub

Frank


I have a protected worksheet, to stop people deleting things
unnecessarily. Although some rows need to be deleted occasionally.

I want to delete these rows using a macro that unprotects the sheet,
deletes the row that has been selected and then protects the sheet
again.

I created the following macro, which works:

Sub DeleteMealItem()
ActiveSheet.Unprotect
Selection.EntireRow.Delete
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
End Sub

But there are some rows in the sheet that i don't want anyone to be
able to delete.

Is there a way to run this so nobody can accidentally delete rows 1
to
8.


---
Message posted from http://www.ExcelForum.com/