Seit Jahreswechsel Makrofehler

Laufzeitfehler '91':
Objektvariable oder With-Blockvariable nicht festgelegt

Dieses Makro hat die Aufgabe in einer grossen Tabelle automatisch den Richtigen Monat zu finden !

Sub Gery()
Dim Monat As String
Monat = Format(Date, "MMMM")
Sheets("003").Select
Cells.Find(what:=Monat, LookIn:=xlValues).Activate
End Sub
Kann mir jemand helfen ?