The worksheet copy will not be index 1 if you are placing it after
worksheet(1). Change code to the following.

Sub AddNewSheet()
Worksheets("TEMPLATE").Copy After:=Worksheets(1)
Worksheets(2).Visible = xlSheetVisible
End Sub


--

Regards,
Nigel




"Porky79" wrote in message
...
Hi - trying to modify the below code to copy (ref: Tom Ogilvy) a
hidden worksheet called TEMPLATE but rather than copy to front of the
worksheet list trying to enter it 1 sheet in (i.e. after an index
page). I have tried changing the Copy Before to Copy After. This
places the copied sheet in teh right location but it is copied as a
hidden sheet.

Sub AddNewSheet()
Worksheets("TEMPLATE").Copy Befo=Worksheets(1)
Worksheets(1).Visible = xlSheetVisible
End Sub


Chen anyone help please?

Thanks