Try using Range("b9").Text instead of Range("b9").Value

--
Rick (MVP - Excel)


"Cook" wrote in message
...

dan dungan;217711 Wrote:
How are you getting the tabs to autoname now?

Yes, just need to modify the code to bring the zero over.

Here is what I have so far.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("b9")) Is Nothing Then
On Error Resume Next
Me.Name = Range("b9").Value
If Err.Number < 0 Then
MsgBox "Quote sheet has not been named"
End If
On Error GoTo 0
End If


End Sub


--
Cook
------------------------------------------------------------------------
Cook's Profile: http://www.thecodecage.com/forumz/member.php?userid=107
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=59817