Foro Excel

Hola amigos del foro.
En un form. con un control calendar, pero quiero q aparesca el dí­a como texto, por ejemplo si escojo 19-06-06 me aparesca en una celda "Lunes", especificamente "Lun", he hecho este codigo, pero espero q me den un comentario y si pueden una mejora, por q la cela cambiara aumentando un lugar hacia abajo:

Código: Seleccionar todo

Private Sub Calendar1_Click()
Dim fecha As String
Dim dia As String
Cells(1, 1) = Calendar1.Value
Cells(1, 1).NumberFormat = "[$-F800]dddd, mmmm dd, yyyy"
fecha = ActiveCell.Text
ActiveCell = Left(fecha, 3)
End Sub


Gracias pos su tiempo y en molestarse e leer esto.
Saludos.
David

Una alternativa.

Private Sub Calendar1_Click()
[A1] = WeekdayName(Weekday(Me.Calendar1.Value))
End Sub

Atte.