rename a copied sheet

[wagee]

I am trying to write a simple VBA program for a spreadsheet. However
I
am stuck. I am learning this as I go along so that is the big problem
no doubt. I need to copy a sheet and rename. Simple eh? I copy it no
problem but cannot figure how to change the copyed name (now
firstname(2) for instance) to a new name. A cut out of the utility is
below:

Private Sub copysht()
sname = "dog"
Sheets("Template").Copy after:=Worksheets(Worksheets.Count)
'.name
= "sname" 'copy at the end
Sheets("Template(2)").name = "sname"
'ActiveWorkbook.Sheets("Template(2)").name = "sname" 'give sheet a
new
name but it blows up on Template(2)!
End Sub

 

[Gord Dibben]

Note that the copied sheet name Template (2) has a space.

Add that to your macro.

Private Sub copysht()
sname = "dog"
Sheets("Template").Copy after:=Worksheets(Worksheets.Count)
Sheets("Template (2)").Name = sname
End Sub


Gord Dibben MS Excel MVP

 

[wagee]

Note that the copied sheet name Template (2) has a space.

Add that to your macro.

Private Sub copysht()
    sname = "dog"
    Sheets("Template").Copy after:=Worksheets(Worksheets.Count)
    Sheets("Template (2)").Name = sname
End Sub

Gord Dibben  MS Excel MVP






- Show quoted text -

Bloody Hell! You're right! Main I worked all day trying every combo
possible and never thought there was a space there. Thanks very much!!

Wayne

 

[Gord Dibben]

New eyes.........new view<g>


Gord