Option Explicit
Option Base 1

Function NombreDía(fecha)
    Dim días
    días = Array("LUN", "MAR", "MIE", "JUE", "VIE", "SAB", "DOM")
    If IsDate(fecha) Then
        NombreDía = días(Application.WorksheetFunction.Weekday(fecha, 3))
    Else
        NombreDía = "#¡No es fecha!"
    End If
End Function
