Thanks for the help. Much appreciated. Got it to work with the
following but it becomes slower each time the macro runs. Since the
macro runs fine the first time from the first worksheet, I modified the
macro to mae that sheet active first and then unhide the other sheet to
copy. It works just not well. Thanks again

Sub NewEarningsCodeSheetCopy()
Worksheets("Table of Contents").Activate
Call UnhideEarningsCode
Sheets("Earnings Code").Select
shName = Application.InputBox("Enter The Name of the New Earnings
Code", "Delphia Consulting")
If (shName = False) Or shName = "" Then Exit Sub

Sheets("Earnings Code").Copy After:=Sheets(4)
ActiveSheet.Name = shName


End Sub



*** Sent via Devdex http://www.devdex.com ***
Don't just participate in USENET...get rewarded for it!