Cómo buscar celda que contenga parte del valor buscado

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)

If celda Is Nothing Then

      MsgBox “No encontrado”

Else

      MsgBox “Si encontrado”

End If

Como verán lo que intento es buscar la celda que contenga el valor introducido mediante el TextBox sin importar que tenga otro dato la celda, si lo encuentra informar que lo encontró y si no lo encuentra informar que no lo encontró.

Todo sale bien, incluso cuando hago la prueba desde el editor de VBA funciona, el problema está que cuando ejecuto el archivo de Excel mediante:

Application.Visible=False

UserForm.show

Ya no funciona el código y siempre me arroja el mensaje de no encontrado.

Su