Naming Sheet

B

Bob Phillips

Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "A1"

On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
With Target
Me.Name = .Value
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)
 
M

mehare

Thanks for the help but I've never used code in Excel.

I've pasted it in, the left hand drop down menu says "worksheet" and
the right hand "change". Is this correct?

The information I want as the name of the sheet is in cell b1. Do I
have to change anything in the code to make this happen?

Thanks again
 
B

Bob Phillips

Yes, change

Const WS_RANGE As String = "A1"

to


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)
 
B

Bob Phillips

Yes, change

Const WS_RANGE As String = "A1"

to

Const WS_RANGE As String = "B1"

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)
 
Top