Método para buscar parte del valor en una celda

Tengo el siguiente código:

Private Sub CommandButton1_Clic()

fecha = Format (TextBox1, “mmmm - yyyyy”)

Set celda = Sheets(“nombres”).Range(“D:D”).Find(What:=fecha, LookIn:=xlValues)

Range (“D” & celda.Row & “:D” & celda.Row).Select

End Sub 

Pero el error me lo da en la línea 5, la que hace la referencia buscar, obvio el valor si se encuentra en una celda de la columna pero me manda el error variable de objeto o bloque with no establecido.