Naming The Tabsheet from a cell

[JackR]

I have this routine that I am runing, but the problem is it changes all the
tabs on every sheet, how can I have only change the tab for the sheet I am
working on?

Here is what I am using

Sub nametab()
Dim i As Integer
On Error Resume Next
For i = 1 To Sheets.Count
Sheets(i).Name = Sheets(i).Range("G1").Value
Next i
On Error GoTo 0

Any help would be great.

[Ardus Petus]

sub rename()
ActiveSheet.Name = Range("G1").Value
end sub

HTH
--
AP

"JackR" <[email protected]> a écrit dans le message de
news:[email protected]...
> I have this routine that I am runing, but the problem is it changes all
the
> tabs on every sheet, how can I have only change the tab for the sheet I am
> working on?
>
> Here is what I am using
>
> Sub nametab()
> Dim i As Integer
> On Error Resume Next
> For i = 1 To Sheets.Count
> Sheets(i).Name = Sheets(i).Range("G1").Value
> Next i
> On Error GoTo 0
>
> Any help would be great.

[Chip Pearson]

Jack,

Try

ActiveSheet.Name = ActiveSheet.Range("G1").Value


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"JackR" <[email protected]> wrote in message
news:[email protected]...
>I have this routine that I am runing, but the problem is it
>changes all the
> tabs on every sheet, how can I have only change the tab for the
> sheet I am
> working on?
>
> Here is what I am using
>
> Sub nametab()
> Dim i As Integer
> On Error Resume Next
> For i = 1 To Sheets.Count
> Sheets(i).Name = Sheets(i).Range("G1").Value
> Next i
> On Error GoTo 0
>
> Any help would be great.

[JackR]

Thank you, that worked. I appreciate the help

"Chip Pearson" wrote:

> Jack,
>
> Try
>
> ActiveSheet.Name = ActiveSheet.Range("G1").Value
>
>
> --
> Cordially,
> Chip Pearson
> Microsoft MVP - Excel
> Pearson Software Consulting, LLC
> www.cpearson.com
>
>
>
> "JackR" <[email protected]> wrote in message
> news:[email protected]...
> >I have this routine that I am runing, but the problem is it
> >changes all the
> > tabs on every sheet, how can I have only change the tab for the
> > sheet I am
> > working on?
> >
> > Here is what I am using
> >
> > Sub nametab()
> > Dim i As Integer
> > On Error Resume Next
> > For i = 1 To Sheets.Count
> > Sheets(i).Name = Sheets(i).Range("G1").Value
> > Next i
> > On Error GoTo 0
> >
> > Any help would be great.
>
>
>