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

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"sam" wrote in message
...
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