Frage zu Makro

habe eine kurze Frage zu einem Makro.
Das Makro sucht nach Tabellen und wählt diese aus. Jetzt habe ich ein kleines Problem:
Wenn ich nach der bestehenden Tabelle 4 suche und es wurde bereits eine Tabelle 24-4 vor dieser erstellt findet er nur die 24-4.
Woran könnte das liegen?

Hier das Makro:

Sub TabelleSuchen()
Dim wks As Worksheet
Dim strWks As String
strWks = InputBox(Prompt:="Gesuchte Listenummer eingeben:", Default:="")
If strWks = "" Then Exit Sub
For Each wks In Worksheets
If InStr(UCase(wks.Name), UCase(strWks)) > 0 Then
wks.Select
Exit Sub
End If
Next wks
Beep
MsgBox "Keine Liste gefunden!"
End Sub

Für eine Hilfe wäre ich sehr dankbar.

Danke Marco