Formulier, Foutcode 94 negeren?

[bgoo]

Hallo mensen,

Ik heb een formulier, die alle sheets in een list zet.
Vervolgens kan je dan makkelijk navigeren tussen sheets.

Echter als je niks selecteert, en toch op "Naar bon" klikt, krijg je een foutcode:
"Ongeldig gebruik van null"

Ik zou graag willen, dat als je niks selecteerd, hij een melding geeft van:"Selecteer een bon".

-----------------Formulier vullen-------------------------------------

Private Sub UserForm_Initialize()

Dim sh As Worksheet
With Navigation
    .Clear
    
    For Each sh In Worksheets
        If Not sh.Name = "ZZZ MENU" And Not sh.Name = "ZZZ KASSTAAT" And Not sh.Name = "ZZZ STUP" And Not sh.Name = "ZZ NieuweBonLid" And Not sh.Name = "ZZ NieuweBonNietLid" And Not sh.Name = "ZZZ ADMIN" Then .AddItem sh.Name
        
          Next
End With
ActiveWindow.ScrollIntoView Left:=0, Top:=0, Width:=100, Height:=100
End Sub



----------Naar bon--------------------------

Private Sub CmdNavigate_Click()

    Application.Goto Sheets(CStr(Navigation)).Range("A1")
    Unload Me
    
End Sub

 

[Roncancio]

Private Sub CmdNavigate_Click()
If Navigation.Value <> "" Then
    Application.Goto Sheets(CStr(Navigation)).Range("A1")
    Unload Me
Else
    MsgBox "Selecteer een bon", vbExclamation, "Bon selecteren."
End If
End Sub

Met vriendelijke groet,


Roncancio

 

[bgoo]

Heel erg bedankt!