You need to enter this code in as well to define the function lastrow. The
code was at the bottom of the page where the code was.

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

MVK

"pmv464" wrote in message
...
I am attempting to use the macro as written, from
http://www.rondebruin.nl/copy2.htm. I have tried using the "Copy a range
of
each sheet" macro and also the "Copy from row 2 till the last row with
data"
macro. Each time I try to run them I get " Compile error:sub or function
not
defined" and visual basic is highlighting the following

For Each sh In ThisWorkbook.Worksheets
If sh.Name < DestSh.Name Then
Last = LastRow(DestSh) LastRow is
highlighted
shLast = LastRow(sh)

Is there something I need to define?