subscript out of range error: tring to copy a hidden sheet

S

sam

I got a subscript out of range error when trying to copy sheet2. Sheet2 is
hidden.

here is the code:

Worksheets("Hidden").Copy Worksheets("Sheet2")

Thanks in advance
 
D

Don Guillett

Sub copyhiddensht()
Sheets("Sheet2").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = "newsht"
End Sub
 
Top