I forgot to paste the macro:

Sub CopySheet()

On Error GoTo Err_Handler
copySht = InputBox("Sheet to be copied....")
Sheets(copySht).Copy After:=Sheets(Sheets.Count)

Err_Handler:
MsgBox "The sheet you specified (" & copySht & ") probably doesn't
exist"

End Sub


Mangesh



"mangesh_yadav"
wrote in message
news:mangesh_yadav.1qgied_1118484305.2153@excelfor um-nospam.com...

You may want to run this macro.

Mangesh


--
mangesh_yadav
------------------------------------------------------------------------
mangesh_yadav's Profile:
http://www.excelforum.com/member.php...o&userid=10470
View this thread: http://www.excelforum.com/showthread...hreadid=378174