Tengo una Rutina para colocar el día de la semana en una Etiqueta cuando se coloca una fecha en un trío de ComboBox (dia, mes y año). Al seleccionar el año me da el siguiente error:

Se ha producido el error "1004" en tiempo de ejecución:

Error en el método Range de Objeto_Worksheet

Private Sub Escribe_DiaSem() ' Coloca el Nombre del Día de la Semana de la Fecha de Ocurrencia

Dim fecha As Date

Dim Nombre_dia As String

Dim Variable As Integer

fecha = Me.ComboBox108.Text & "/" & Me.ComboBox107.Text & "/" & Me.ComboBox109.Text

Variable = Weekday(fecha)

Select Case Variable

Case 1

Nombre_dia = "DOMINGO"

Label257.Caption = Nombre_dia

Celda = "F" & Fila

Hoja3.Range(Celda).Value = Nombre_dia

Case 2

Nombre_dia = "LUNES"

Label257.Caption = Nombre_dia

Celda = "F" & Fila

Hoja3.Range(Celda).Value = Nombre_dia

Case 3

Nombre_dia = "MARTES"

Label257.Caption = Nombre_dia

Celda = "F" & Fila

Hoja3.Range(Celda).Value = Nombre_dia

Case 4

Nombre_dia = "MIERCOLES"

Label257.Caption = Nombre_dia

Celda = "F" & Fila

Hoja3.Range(Celda).Value = Nombre_dia

Case 5

Nombre_dia = "JUEVES"

Label257.Caption = Nombre_dia

Celda = "F" & Fila

Hoja3.Range(Celda).Value = Nombre_dia

Case 6

Nombre_dia = "VIERNES"

Label257.Caption = Nombre_dia

Celda = "F" & Fila

Hoja3.Range(Celda).Value = Nombre_dia

Case 7

Nombre_dia = "SABADO"

Label257.Caption = Nombre_dia

Celda = "F" & Fila

Hoja3.Range(Celda).Value = Nombre_dia

End Select

End Sub

Sin el archivo es imposible ayudarte.