Probleme mit "Such"-Makro

Sub BlattAuswählen()
Dim q
Application.ScreenUpdating = False
On Error Resume Next
Dim wks As Worksheet
Dim strWKS As String
neuerversuch:
strWKS = InputBox("Bitte Prüfblattnummer eingeben:")
For Each wks In Worksheets
If strWKS = "" Then Exit Sub
If InStr(UCase(wks.Name), UCase(strWKS)) > 0 Then
wks.Select
Exit Sub
End If
Next wks
q = MsgBox("Blattname existiert nicht. Neues Prüfblattlatt anlegen?", vbYesNo)
If q = vbNo Then Exit Sub
If q = vbYes Then
Call Makro_neues_Blatt_anlegen
End If
Application.ScreenUpdating = True
End Sub