Userform sluit niet af

[youdeni]

Beste formuleden,

Met behulp van dit forum heb ik de ondertsaande code gemaakt bij mijn userform. Nu heb ik het volgende probleem. Als een gebruiker de data heeft ingevoerd en op de button vervolg klikt wordt er een sub gestart.
So far so good. Maar ik wil zodra dat de Sub klaar is dat het userform wordt gesloten. Deze blijft nu openstaan. Weet iemand raad?

Private Sub UserForm_Initialize()
    begin.List = Sheets("Datum").Cells(1).CurrentRegion.Value
End Sub

Private Sub begin_Change()
    If begin.ListIndex > -1 Then
        eind.List = Sheets("Datum").Cells(1, 6).CurrentRegion.Value
        eind.Visible = True
    End If
End Sub
Private Sub eind_Change()
    knop_vervolg.Visible = eind.ListIndex > -1
End Sub

Private Sub knop_vervolg_Click()
    Sheets("Definitie").Cells(10, 12) = CDate(begin.Value)
    Sheets("Definitie").Cells(14, 12) = CDate(eind.Value)
 Application.Run "'ExSION.xlam'!MENU_DATA"
End Sub

Private Sub knop_stop_Click()
    Unload UserForm1
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If knop_vervolg.Visible = True Then knop_vervolg = True
   
End Sub

 

[HSV]

Zo dan?

Private Sub knop_vervolg_Click()
    Sheets("Definitie").Cells(10, 12) = CDate(begin.Value)
    Sheets("Definitie").Cells(14, 12) = CDate(eind.Value)
[COLOR=#FF0000]unload me[/COLOR]
 Application.Run "'ExSION.xlam'!MENU_DATA"
End Sub

 

[youdeni]

Super Bedankt
Het werkt!!!