Wieso klappt "Suchmakro nicht?"

Sub Suchen()
Dim Suchtext As String
Dim zelle As Range
Suchtext = Format(ActiveSheet.Range("D4").Value, "MMMM")
bis hier wird RICHTIG angezeigt:    ' MsgBox Suchtext
Set zelle = Range("J14:J36").Find(What:=Suchtext, LookIn:=xlValues, Lookat:=xlWhole)
Select Case zelle Is Nothing
Case False
zelle.Activate
Case True
MsgBox "Monatsname :  " & Suchtext & _
"     konnte nicht gefunden werden !   " & Chr(13) _
& Chr(13), 48, " Hinweis !"
End Select
End Sub

Leider kommt Monat kann nicht gefunden werden, WIESO ?
Was muß ich ändern ?
mfg Walter mb