LastRow = ActiveSheet.UsedRange.Rows.Count not givng correct value

[BobBlooms]

The ojective of this routine is to determine if any employees are overdue in their salary review date. The routine first goes out to an Acess DB, and grabs the records where the salary consideration date is < Now(). If LastRow count is > 1 (title line) a msgbox is activated. LastRow value keeps coming up 16 even when I delete the rows below the title row. I am truly lost on this.

Please Login or Register  to view this content.

[wallyeye]

I use the .Find command, it is quite a bit more flexible:

Please Login or Register  to view this content.

I think the key part here is the LookIn:=xlvalues, with the UsedRange Excel has noted that you've used the range even though there is nothing in it. This version of .Find will look for any values, starting from the bottom (it wraps backwards from A1, because of the xlprevious) and return the row number of the first value it finds.

BTW, you should put code tags around code in your post, simply select the code and click the # on the toolbar.

[BobBlooms]

Will try .Find. Alway open to a better way. Thanks. Will try to remember to the pound sign.

[Cutter]

@ BobBlooms

Please notice that code tags have been added to your post(s). The forum rules require them so please keep that in mind and add them yourself whenever showing code in any of your future posts. To see instructions for applying them, click on the Forum Rules button at top of the page and read Rule #3.
Thanks.