1. Day of Week

Sub Example()
    Dim days As Variant

    days = Array( _
    "Monday", _
    "Tuesday", _
    "Wednesday", _
    "Thursday", _
    "Friday", _
    "Sunday", _
    "Saturday")

    Dim n As Integer
    n = 90

    If n >= 1 And n <= 7 Then
        Debug.Print days(n - 1)
    Else
        Debug.Print "Invalid!"
    End If
End Sub