Renaming sheet with VBA
 

I am doing some checks for specific text within the existing sheet name and
if the sheet name contains that value, I want to rename it to include
information from named range abc.

I'm using this to rename the sheet

Worksheets(i).Name = "TRY IT " & Range("abc") & " - Cover
Page"

I know I've got the right worksheet, but it's not being renamed. Does the
formula need to be changed?

Thanks,
Barb Reinhardt

Renaming sheet with VBA
 

Barb,

Where is the code located? It should be in a regular code module,
not in a sheet module or the ThisWorkbook module. If you have it
in a sheet object module, you need to qualify the Range statement
to point to the sheet on which the range "abc" is defined. E.g,.

Worksheets(i).Name = _
"TRY IT " & Worksheets(1).Range("abc") & " - Cover Page """


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



"Barb Reinhardt" wrote
in message
...
I am doing some checks for specific text within the existing
sheet name and
if the sheet name contains that value, I want to rename it to
include
information from named range abc.

I'm using this to rename the sheet

Worksheets(i).Name = "TRY IT " & Range("abc") &
" - Cover
Page"

I know I've got the right worksheet, but it's not being
renamed. Does the
formula need to be changed?

Thanks,
Barb Reinhardt

Renaming sheet with VBA
 

I used this code to rename all the sheets in an active workbook. I had
to set up the named range on EACH sheet and use a different value in
each so that the name would not be duplicated.


Code:
--------------------
Sub RenameSht()

For i = 1 To Worksheets.Count
Worksheets(i).Activate
Worksheets(i).Name = "TRY IT " & ActiveSheet.Range("abc") & " - Cover Page"
Next

End Sub
--------------------





Barb Reinhardt Wrote:
I am doing some checks for specific text within the existing sheet name
and
if the sheet name contains that value, I want to rename it to include
information from named range abc.

I'm using this to rename the sheet

Worksheets(i).Name = "TRY IT " & Range("abc") & " - Cover
Page"

I know I've got the right worksheet, but it's not being renamed. Does
the
formula need to be changed?

Thanks,
Barb Reinhardt


--
Excelenator


------------------------------------------------------------------------
Excelenator's Profile: http://www.excelforum.com/member.php...o&userid=36768
View this thread: http://www.excelforum.com/showthread...hreadid=565657