Lastrow - function not defined

[seed]

Borrowed this from Ron DeBruin's site but can't get it to work:

Dim SourceRange As Range, DestRange As Range
Dim DestSheet As Worksheet, Lr As Long
Set SourceRange = Sheets("Cart and Time Sheets").Range("l2:x2")
Set DestSheet = Sheets("tests")
Lr = LastRow(DestSheet)

Gets to the Lr line and gives me a sub or function not defined error. I'm
pretty well clueless and any help would be much appreciated.

 

[Wigi]

Did you copy the function LastRow from Ron? It should come in a Module in
your VBA project.

 

[seed]

Well! Of course not! That clears things up a bit

Thanks