PERFECT!!! It's my last day here in this contract so was just able to fix
up the macro. XL2K is too neat for words. They have a button that copies a
hidden template sheet and now also asks them for a name, all in one click!
Kewl.

Thanks! :oD

"Pointless" wrote
in message ...

??? dont know if i unerstand you, but something like this should work.


Code:
--------------------

Sub renameWorksheet()
Dim NewName As String

NewName = InputBox("Give the tab a new name", "Rename")

If NewName = "" Then
NewName = InputBox("Go ahead, make my day, please, please", "Rename")
If NewName = "" Then Exit Sub
End If

ActiveSheet.Name = NewName

End Sub


--------------------


--
Pointless
------------------------------------------------------------------------
Pointless's Profile:
http://www.excelforum.com/member.php...o&userid=30862
View this thread: http://www.excelforum.com/showthread...hreadid=508112