[Excel] Button om nieuw tabblad te maken met vraag om naam.

[awenger]

Beetje vage topictitel, maar wat ik bedoel is het volgende.
Ik wil in Excel een button maken waar je op drukt om een nieuw tabblad te maken. Dit is opzich nog niet zo moeilijk. Maar ik wil dat als ik op die knop druk, dat er een dan een dialoogvenster verschijnt waarin ik de naam van het nieuwe tabblad kan opgeven. Ik heb geen flauw idee hoe ik dit moet doen en met de search functie kom ik er ook niet uit.

[onkl]

Zoek eens op de functie inputbox.
Bijvoorbeeld

Visual Basic:

Sub jemacro()
Dim nieuwblad As Worksheet
Dim oudblad As Worksheet
Dim nieuwbladnaam As String
nieuwbladnaam = Application.InputBox(prompt:="Naam van het nieuwe blad", Type:=2)
'foutcontrole
For Each oudblad In ActiveWorkbook.Worksheets
    If oudblad.Name = nieuwbladnaam Then
        MsgBox "blad bestaat al, verzin een creatievere naam"
        Exit Sub
    End If
Next oudblad
Set nieuwblad = ActiveWorkbook.Worksheets.Add
nieuwblad.Name = nieuwbladnaam
End Sub