If the sheet is hidden rather than very hidden, you can copy it:

Worksheets("Main").Copy After:=Worksheets(Worksheets.Count)


If it is very hidden you might try

Appliction.ScreenUpdating = False
Worksheets("Main").Visible = xlSheetVisible
worksheets("Main").copy After:=Worksheets(Worksheets.count)
Worksheets("Main").Visible = xlSheetVeryHidden
Application.ScreenUpdating = True

--
Regards,
Tom Ogilvy


"StargateFan" wrote in message
...
I've often thought this would be handy. If there was a macro that
would make a copy of the hidden main sheet, users would be much, much
less likely to somehow overwrite the blank main sheet. Can this be
done, though?