Hi Charlotte

I not see you problem
If you want send me a test workbook private so I can look at it



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm




"Charlotte E" <@ wrote in message ...
Hi Ron,


I've always used another little UDF function, I've created on my own, to
find the last row.
But I've also always never liked my own function, so when I saw yours i was
delighted, since it looked much better than mine.

But...
Your function doen't seem to find the right last row on a protected sheet?

Reason seems to be that the .Find method doesn't search protected cells.
Is it possible to make your function work on protected sheets as well, since
I really like your way of finding last row much better than mine?


TIA,


Function LastRow(sh As Worksheet)
On Error Resume Next
LastRow = sh.Cells.Find(What:="*", _
After:=sh.Range("A1"), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
On Error GoTo 0
End Function