Find last used row problem

[Brian.Crawford]

I have the following section of code from a SUB that needs to know the last row with data in it.
.
Dim RwCount as long, RRng as range
.
.
With Sheets("annualsummary")
Set RRng = .Range("D:D")
RwCount = RRng.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
.
.
When the code is executed during normal VBA macro execution the RwCount is returned =0. When I step through the code with the debugger I get the correct answer of 171. I use this last row method extensively in my macros and up until a week ago it has always worked. I have only seen this problem in this particular SUB/macro.

The following setting are in place (and have been all along)
Calculation is set to manual
EnableEvents is false
ScreenUpdating is false

Any advice is much appreciated.
Brian

 

[patel45]

some solutions

lastrow1 = Range("D1").End(xlDown).Row
lastrow2 = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell) .Row
lastrow3 = ActiveSheet.UsedRange.SpecialCells(xlLastCell, xlNumbers).Row
lastrow4 = Cells(Rows.Count, "D").End(xlUp).Row
lastrow5 = Cells(Rows.Count, 4).End(xlUp).Row
lastrow6 = Range("D" & Rows.Count).End(xlUp).Row