??? 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


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

--
Pointles
-----------------------------------------------------------------------
Pointless's Profile: http://www.excelforum.com/member.php...fo&userid=3086
View this thread: http://www.excelforum.com/showthread.php?threadid=50811