Naming a Sheet

[gheyman]

I know I can add code to rename a tab

Me.Name = "Summary"


But what I want to do is rename Sheet3. I am asking specifically just to rename sheet3 so if the user copies the tab, the code that renames doesn't happen on the new/copied tab.

I tried (obviously without success)
Sheet3.Name = "Summary"

 

[Logit]

.

Sub newname()
    Sheets("Sheet3").Name = "Summary"
End Sub

 

[gheyman]

The sheet name isn't currently "Sheet3". I want to name sheet3 (object)

 

[JonXL]

Try

Dim wsNameChange As Worksheet

Set wsNameChange = Sheet3

wsNameChange.Name = "Summary"

 

[Logit]

.

Option Explicit


Sub namSht()
Sheet3.Name = "Summary"
End Sub

Above works whether placed in Routine Module or a Sheet Module.

 

[Logit]

You are welcome.