Sheet Tab Naming

Timbo · Jul 30th 2004

Can anyone give me a piece of code that will apply a name in cell d3 to the sheet tab?

Then scroll through the workbook doing the same until all the sheet tabs have been named.

Many thanks in advance.

**royUK** · Jul 30th 2004

Sheet1.name=Range("D3").Value

See this post for more help

Timbo · Jul 30th 2004

Thanks RoyUK,

But how do I get it to scroll through all of the worksheets doing the same, there are up to seventy five in some workbooks.

Thanks again

Tim.

**royUK** · Jul 30th 2004

are you using the same cell for the name

Timbo · Jul 30th 2004

Hi Roy,

Yes Cell D3 on each workbook.

Thanks

Tim.

jindon · Jul 30th 2004

Hi,

Try

Sub tab_name()
Dim ws As Worksheet
For Each ws In Sheets
ws.Name = ws.Range("d3").Value
Next
End Sub

Timbo · Jul 30th 2004

Jindon,

Many thanks works a treat.

Tim.

SomewhereNorth · Aug 11th 2004

Is there any way for a Tab to be named with the contents of a cell without coding?

Plain Vanilla,
SomewhereNorth

**royUK** · Aug 12th 2004

Hi SomewhereNorth

You need to use VBA to name a sheet tab this way

Timbo · Sep 22nd 2004

Thanks Roy,

Sorry for the delay I have been ill with a bad back for a couple of months.

Didn't want you to think I didn't appreciate the help.

Tim.

Participate now!