Excel - Error en variable de objeto

Hola,
A ver si alguien me puede echar una mano, porque ya no sé cuanto tiempo llevo perdido con este error.
Tengo este Sub para buscar la columna que corresponde a un rango que denomino Enero y que contiene 31 celdas con los números de los días (1,2,3....31):

Sub BuscarColumna()
Dim Fecha As Date
Dim dia As Byte
Dim Mes As String
Dim Columna As Byte


Fecha = Range("A1").Value '//aquí pongo en formato fecha un día de Enero.
dia = Day(Fecha)
Mes = "Enero"

Range(Mes).Select
Columna = Range(Mes).Find(what:=dia).Column
MsgBox "-" & dia & "-" & Mes & "->" & Columna
End Sub

El error viene en la antepenúltima fila al obtener el valor columna (nº de columna en la que se encuentra la celda del día) y es el siguiente:

Se ha producido el error '91' en tiempo de ejecución.
Variable de objeto o bloque with no establecido.

Muchas gracias, Juan Luis

probá separando la linea en 2
Dim Rng As Range
Set Rng = Range(Mes).Find(what:=dia)
If Not Rng Is Nothing Then
Columna = Rng.Column
Else
'No encontrado
End If

Saludos desde Baires, JuanC

No, no se me soluciona.
Veo que hay algún problema con la variable día, obtenida con la función
day(fecha).
Su formato no debe ser adecuadoY no consigo solucionarlo. Gacias de todos modos JuanC.

Hola,

¿Conseguiste arreglar el error? Creo que me está ocurriendo el mismo error que te ocurrió y no sé cómo arreglarlo.

Te adjunto mi código por si te es de ayuda.


Gracias de antemano.

Un saludo,