Another "1004" error...

[BluByU]

Hello.

I am getting the "1004" error when I try to copy an active worksheet to a new one I just created. Any ideas on what I am doing wrong? Thanks!

Dim objNewWS As Excel.Worksheet

If chkSheet = True Then
Set objNewWS = Worksheets.Add
objNewWS.Move , Worksheets("Sheet3")
ActiveWorkbook.Worksheets("Sheet1").Activate
ActiveWorkbook.Worksheets("Sheet1").Copy Destination:=objNewWS <-- Causes the "1004" error
End If

 

[PHV]

There is no Destination named argument to the Worksheet.Copy method ...

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[BluByU]

DOH! Thanks.

This is what I ended up doing:

ActiveWorkbook.Worksheets("Sheet1").Range("A5:CZ500").Copy Destination:=objNewWS.Range("A5")