set NewSheet = OldSheet.copy

Hello,

I've created the folowing sub:

Dim NewSheet as Worksheet
Set NewSheet = OldSheet.Copy

I thought this would work, but I get a warning. Is there another way to set a copy of an existing sheet to a variable?

Thank you in advance

Try this

Sub Macro1()
Dim i As Long
i = 1
    Sheets(i).Copy After:=Sheets(Sheets.Count)
    'sheets.Count is now sheets.Count +1
    On Error Resume Next
    Sheets(Sheets.Count).Name = "Copy of sheet " & i
End Sub

I suggest it's not possible to do this at once then....

Please explain. many things are possible

Maar ff in't Nederlands...

Ik wil die nieuwe sheet (die kopie van de oude) direct aan een variabele koppelen.

Dus wat je normaal met een nieuwe sheet doet:

Dim NewSheet as Worksheet
Set NewSheet = ActiveWorkbook.Sheets.Add

Deze doet het uiteraard, maar ik wil dan dus een kopie van een oude ipv een nieuwe. Eigenlijk zou ik willen doen:

Dim NewSheet as Worksheet
Set NewSheet = ActiveWorkbook.Sheets("bestaandesheet").Copy

Maar dan krijg ik de melding dat dat niet kan.

eclapt,

Please take a few minutes to read the frum rules, and then edit both of your posts to add code tags.

Thanks.