Combine Multiple Sheets: Complie Error, Expect Array

[Guest]

Am trying to use the following (from Ron dB)
Get error shown above at line indicated by >>>>>>>>>>

Is there supposed to be other lines at the start of this code?

Dim sh As Worksheet
Dim DestSh As Worksheet
Dim Last As Long

On Error Resume Next
If Len(ThisWorkbook.Worksheets.Item("Master").Name) = 0 Then
On Error GoTo 0
Application.ScreenUpdating = False
Set DestSh = ThisWorkbook.Worksheets.Add
DestSh.Name = "Master"
For Each sh In ThisWorkbook.Worksheets

sh.UsedRange.Copy DestSh.Cells(Last + 1, "A")
End If
Next
DestSh.Cells(1).Select

Application.ScreenUpdating = True

Else
MsgBox "The Sheet Master already Exists"
End If

 

[Ron de Bruin]

Hi BEEJAY

http://www.rondebruin.nl/copy2.htm
Have you copy the function LastRow in the module ?

 

[Guest]

Ron: You are correct. I did not have the "lastRow" function in module.

Also, now that I look at the code again after a refreshing week-end,
I see that this is not the code I need.
Sorry for wasting your time.
I might have to get back to you if I can't get my 'long' version (macro
recorder)
to work.