Opslaan als labenaam

[Atwist]

hallo

Ik probeer een knop te maken met daaronder een code om een nieuwe sheet te maken en deze dan op te slaan als de waarde van label250

Private Sub CommandButton15_Click()
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets("Blad1").Select
    Sheets("Blad1").Name = Label250.Caption
End Sub

Dit heb ik met macro opname gemaakt maar er word een sheet gemaakt maar dan loopt het fout op ("Blad1") omdat het bijvoorbeeld al sheet 5 is

Heeft iemand hiervoor nog iets anders voor

Alvast bedank voor jullie tijd

 

[HSV]

Ik neem aan dat het in je Userform staat.

Private Sub CommandButton15_Click()
Sheets.Add , Sheets(Sheets.Count)
 ActiveSheet.Name = Label250.Caption
End Sub

 

[Warme bakkertje]

Of

Private Sub CommandButton15_Click()
Sheets.Add , Sheets(Sheets.Count)
 Sheets(Sheets.Count).Name = Label250.Caption
End Sub

 

[Atwist]

Harry & Rudi

Mijn dank het werkt perfect.