I used a learn macro and then made appropriate changes. this works.

Sub Macro2()
'
' Macro2 Macro
' Macro recorded 3/1/2007

'
newname = InputBox("enter sheet name")
Sheets("ABC").Select
Sheets("ABC").Name = newname
End Sub


"Maggie" wrote:

I already have the macro to copy my worksheet which is:
Sheets("HOEPA Worksheet").Select
Sheets("HOEPA Worksheet").Copy Befo=Sheets(1).

I want to be able to name the tab using a input box but I cant seem to
get it to work. Any suggestions on how to go about this so that when
I hit the button to copy and insert an input box would come and ask to
enter the name of the tab.

Maggie