Tabblad toevoegen via userform en gelijk sheet kopieren

[monkey1601]

Hallo Helpers,

Bijgevoegd bestand bestaat nu nog uit 3 sheets. Nu wil ik een nw toevoegen middels een userform(is al aangemaakt).
Als ik op toevoegen klik zou sheet(basis) gekopieerd moeten worden en de ingevoerde naam moeten krijgen.
Dit lukt mij niet.

 

[Niels28]

Private Sub Cmdadd_Click()
For Each sh In ThisWorkbook.Sheets
If sh.Name = txtNewWorksheet.Value Then
MsgBox "Naam bestaat al, kies een andere naam."
Exit Sub
End If
Next
Sheets("basis").Copy after:=Sheets(Sheets.Count)
Sheets("basis (2)").Name = txtNewWorksheet.Value
Unload Me
End Sub

Private Sub cmdclose_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
txtNewWorksheet.SetFocus
End Sub

Niels

 

[monkey1601]

o

Bedankt voor de snelle reactie