How to rename a newly copied sheet using a userform?

[crburke92]

Looking to have a masterworkbook that when I go to a job, i can add sheets and rename them as I go since all sites name gear different. I have a set of template sheets hidden within the wookbook that I draw from, but I was hoping to have a userform with a simple text box pop up, type in the new sheet name I want, and hit "Okay" or something along those lines.

Sub New_Switch_Sheet()

Sheets("SWCH_TEMP").Visible = True
    Sheets("SWCH_TEMP").Copy After:=Sheets("SWCH_TEMP")
        Sheets("SWCH_TEMP").Visible = Flase
        
UserForm1.Show
End Sub

Just unsure how/if I'm able to make activesheet.name = "textbox value from userform"
Thanks in advance!

 

[lrobbo314]

How about this?

Sub New_Switch_Sheet()
Dim wsName As String: wsName = Application.InputBox("Enter New SheetName")
Dim IDX As Integer: IDX = Sheets("SWCH_TEMP").Index

Sheets("SWCH_TEMP").Visible = True
Sheets("SWCH_TEMP").Copy After:=Sheets(IDX)
Sheets("SWCH_TEMP").Visible = False
Sheets(IDX + 1).Name = wsName
        
UserForm1.Show
End Sub

 

[crburke92]

Thats the one! I've never seen the Application.InputBox Before. Thats awesome, I like it. Thanks!

 

[lrobbo314]

───────────────────░█▓▓▓█░▇▆▅▄▃▂
──────────────────░█▓▓▓▓▓█░▇▆▅▄▃▂
─────────────────░█▓▓▓▓▓█░▇▆▅▄▃▂
──────────░░░───░█▓▓▓▓▓▓█░▇▆▅▄▃▂ ...
─────────░███░──░█▓▓▓▓▓█░▇▆▅▄▃▂
───────░██░░░██░█▓▓▓▓▓█░▇▆▅▄▃▂
──────░█░░█░░░░██▓▓▓▓▓█░▇▆▅▄▃▂
────░██░░█░░░░░░█▓▓▓▓█░▇▆▅▄▃▂
───░█░░░█░░░░░░░██▓▓▓█░▇▆▅▄▃▂
──░█░░░░█░░░░░░░░█▓▓▓█░▇▆▅▄▃▂
──░█░░░░░█░░░░░░░░█▓▓▓█░▇▆▅▄▃▂
──░█░░█░░░█░░░░░░░░█▓▓█░▇▆▅▄▃▂
─░█░░░█░░░░██░░░░░░█▓▓█░▇▆▅▄▃▂
─░█░░░░█░░░░░██░░░█▓▓▓█░▇▆▅▄▃▂
─░█░█░░░█░░░░░░███▓▓▓▓█░▇▆▅▄▃▂
░█░░░█░░░██░░░░░█▓▓▓▓▓█░▇▆▅▄▃▂
░█░░░░█░░░░█████▓▓▓▓▓█░▇▆▅▄▃▂
░█░░░░░█░░░░░░░█▓▓▓▓▓█░▇▆▅▄▃▂
░█░█░░░░██░░░░█▓▓▓▓▓█░▇▆▅▄▃▂
─░█░█░░░░░████▓▓▓▓██░▇▆▅▄▃▂
─░█░░█░░░░░░░█▓▓██▓█░▇▆▅▄▃▂
──░█░░██░░░██▓▓█▓▓▓█░▇▆▅▄▃▂
───░██░░███▓▓██▓█▓▓█░▇▆▅▄▃▂
────░██▓▓▓███▓▓▓█▓▓▓█░▇▆▅▄▃▂
──────░█▓▓▓▓▓▓▓▓█▓▓▓█░▇▆▅▄▃▂
──────░█▓▓▓▓▓▓▓▓▓▓▓▓▓█░▇▆▅▄▃▂

 

[Jon Peltier]

Wut?

 

[Jon Peltier]

How about this?

Sub New_Switch_Sheet()
Dim wsName As String: wsName = Application.InputBox("Enter New SheetName")
Dim IDX As Integer: IDX = Sheets("SWCH_TEMP").Index

Sheets("SWCH_TEMP").Visible = True
Sheets("SWCH_TEMP").Copy After:=Sheets(IDX)
Sheets("SWCH_TEMP").Visible = False
Sheets(IDX + 1).Name = wsName
        
UserForm1.Show
End Sub

I would try this:

Sheets("SWCH_TEMP").Visible = True
Sheets("SWCH_TEMP").Copy After:=Sheets(IDX)
ActiveSheet.Name = wsName
Sheets("SWCH_TEMP").Visible = False

 

[lrobbo314]

What?