With Activesheet

.Unprotect
LastRow = ,Cells(.Rows.Count, "A").End(xlUp).Row
With .Rows(LastRow + 1)

'do something
End With
.Protect
End With

--
__________________________________
HTH

Bob

"leimst" wrote in message
...
I'm looking for a good way to identify the last row and column, in a list
on a protected sheet, and then add 10 rows by executing a macro assign to
a "button".

Thanks in advance for any help,

Brian