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?

Hi pmv464

Read good

On top of the page

Important: The macro examples use the functions that you can find in the last section of this page

And above the macro
Note: This example use the function LastRow

Copy the LastRow function also in the standard module

--

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


"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?

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?