Zoeken naar Werkblad en selecteren van die blad

[gast0667]

Wie weet de fout te vinden ?

Ik wil dat VBA gaat zoeken naar een Werkblad (naam) en vervolgens die selecteer (in Excel). Heb nu onderstaand in gedachten, maar gaat compleet fout:

inpBon = Inputbox ("Geef de naam van de bon")

If Worksheets(inpBon).Select = True Then
Worksheets(inpBon).btnVerwerkBon_Click
Else
MsgBox "Verder zoeken"
End If

Geheid dat ik iets fout doe, maar wat ?
Wil graag dat VBA aangeeft dat als de werkbladnaam niet gevonden kan worden hij dit aangeeft en stopt.

 

[Wigi]

Sub bladselecterenmetinputbox()
    
    Dim inpBon
    Dim ws As Worksheet
    
    inpBon = Application.InputBox("Geef de naam van de bon", Type:=2)

    If Not inpBon = False Then
    
        On Error Resume Next
        Set ws = Worksheets(inpBon)
    
        If Err.Number = 0 Then
        
            Worksheets(inpBon).Select
            Worksheets(inpBon).btnVerwerkBon_Click
        Else
            Err.Clear
            MsgBox "Verder zoeken"
        End If
    
    End If
    
End Sub

ongeteste code

Wigi

 

[gast0667]

:thumb:
Zie je wel, deed iets goed fout.
Bedankt.
:thumb: