Tab Value

Is there a way to make a tab assume the same value as a cell on that sheet?
ie. value of cell G1 is Feeler have tab value be Feeler and have the tab
value update automaticaly when the Cell value is changed.

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ws_exit:
Application.EnableEvents = False
If Target.Address = "$G$1" Then
Me.Name = Target.Value
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

RP
(remove nothere from the email address if mailing direct)


"S_Steele1812" <S_Steele1812@discussions.microsoft.com> wrote in message
news:5BE3F0E4-D39F-4E21-A971-2DB6B248FD97@microsoft.com...
> Is there a way to make a tab assume the same value as a cell on that
sheet?
> ie. value of cell G1 is Feeler have tab value be Feeler and have the tab
> value update automaticaly when the Cell value is changed.

Bob,


"Bob Phillips" wrote:

> Private Sub Worksheet_Change(ByVal Target As Range)
>
> On Error GoTo ws_exit:
> Application.EnableEvents = False
> If Target.Address = "$G$1" Then
> Me.Name = Target.Value
> 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
>
> RP
> (remove nothere from the email address if mailing direct)
>
>
> "S_Steele1812" <S_Steele1812@discussions.microsoft.com> wrote in message
> news:5BE3F0E4-D39F-4E21-A971-2DB6B248FD97@microsoft.com...
> > Is there a way to make a tab assume the same value as a cell on that
> sheet?
> > ie. value of cell G1 is Feeler have tab value be Feeler and have the tab
> > value update automaticaly when the Cell value is changed.
>
>
>

Bob,
Is there something that I have to do to execute this code. I printed
it into the sheets module and nothing happened. I confess to being a total
NooB at this. I have written macros before but that is about it.

Thanks
Sean Steele

"Bob Phillips" wrote:

> Private Sub Worksheet_Change(ByVal Target As Range)
>
> On Error GoTo ws_exit:
> Application.EnableEvents = False
> If Target.Address = "$G$1" Then
> Me.Name = Target.Value
> 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
>
> RP
> (remove nothere from the email address if mailing direct)
>
>
> "S_Steele1812" <S_Steele1812@discussions.microsoft.com> wrote in message
> news:5BE3F0E4-D39F-4E21-A971-2DB6B248FD97@microsoft.com...
> > Is there a way to make a tab assume the same value as a cell on that
> sheet?
> > ie. value of cell G1 is Feeler have tab value be Feeler and have the tab
> > value update automaticaly when the Cell value is changed.
>
>
>

Sean,

If you put it in the correct place, then just change the value of G1 (even
to what it already contains, just force the change event), and you will see
the tab name change.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"S_Steele1812" <SSteele1812@discussions.microsoft.com> wrote in message
news:796888BF-660D-405C-82D8-033D9F98F1B0@microsoft.com...
> Bob,
> Is there something that I have to do to execute this code. I
printed
> it into the sheets module and nothing happened. I confess to being a total
> NooB at this. I have written macros before but that is about it.
>
> Thanks
> Sean Steele
>
> "Bob Phillips" wrote:
>
> > Private Sub Worksheet_Change(ByVal Target As Range)
> >
> > On Error GoTo ws_exit:
> > Application.EnableEvents = False
> > If Target.Address = "$G$1" Then
> > Me.Name = Target.Value
> > 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
> >
> > RP
> > (remove nothere from the email address if mailing direct)
> >
> >
> > "S_Steele1812" <S_Steele1812@discussions.microsoft.com> wrote in message
> > news:5BE3F0E4-D39F-4E21-A971-2DB6B248FD97@microsoft.com...
> > > Is there a way to make a tab assume the same value as a cell on that
> > sheet?
> > > ie. value of cell G1 is Feeler have tab value be Feeler and have the
tab
> > > value update automaticaly when the Cell value is changed.
> >
> >
> >

I got this from another post where some one else asked a similar question.
This works exactly as I wanted. Thank you to everyone that helped.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error GoTo ExitMe
If Not Intersect(Target, Range("G1")) Is Nothing Then
Me.Name = Range("G1").Value
End If
ExitMe:
Application.EnableEvents = True
End Sub

"S_Steele1812" wrote:

> Is there a way to make a tab assume the same value as a cell on that sheet?
> ie. value of cell G1 is Feeler have tab value be Feeler and have the tab
> value update automaticaly when the Cell value is changed.

Apart from a more complex way of deducing correct cell, that is the same as
I gave you.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"S_Steele1812" <SSteele1812@discussions.microsoft.com> wrote in message
news:0E8DA732-0446-4DFB-9521-5CCDB94511E7@microsoft.com...
> I got this from another post where some one else asked a similar question.
> This works exactly as I wanted. Thank you to everyone that helped.
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> Application.EnableEvents = False
> On Error GoTo ExitMe
> If Not Intersect(Target, Range("G1")) Is Nothing Then
> Me.Name = Range("G1").Value
> End If
> ExitMe:
> Application.EnableEvents = True
> End Sub
>
> "S_Steele1812" wrote:
>
> > Is there a way to make a tab assume the same value as a cell on that
sheet?
> > ie. value of cell G1 is Feeler have tab value be Feeler and have the tab
> > value update automaticaly when the Cell value is changed.