VBA使用ComboBox命名工作表

Question

I have a commandButton which opens a UserForm to add a new Worksheet. In this Userform is a ComboBox, where i can choose the machine type.

Now i want to create a new Worksheet with the Name of the machine type which was selected in the ComboBox.

This is my Code:

Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Sheets("Sheet1").Copy Before:=Sheets(10)
    ws.Name = ComboBox1
    [UserForm1].Hide
End Sub

Private Sub UserForm_Initialize()
    ComboBox1.List = Array("Machine Type 1", "Machine Type 2")
End Sub

Is there a way to create a new sheet, which is a copy from Sheet1 and name it like the machine type from the ComboBox1?

Thanks for your help.

Answer 1

Try the code below, see notes in the code's comments:

Private Sub CommandButton1_Click()

    Dim ws As Worksheet

    Sheets("Sheet1").Copy Before:=Sheets(10)
    Set ws = ActiveSheet ' <-- you need to set the worksheet object to the latest copied sheet
    ws.Name = ComboBox1.Value '<-- now you can modify the name using the worksheet object
    Me.Hide '<-- hide the user-form        
End Sub

Answer 2

use

Private Sub CommandButton1_Click()
    Sheets("Sheet1").Copy Before:=Sheets(Sheets.Count)
    ActiveSheet.Name = ComboBox1.Value
    Me.Hide
End Sub