Er det muligt at kan VB, finder en dag ud fra en given dato?

På engelsk vil det være

=PROPER(TEXT(A1; "DDDD"))

Select Case Weekday(Range("A1"), 2)
        Case Is = 1
        Range("B2") = "Mandag"
        Case Is = 2
        Range("B2") = "Tirsdag"
        Case 3
        Range("B2") = "Onsdag"
        Case Is = 4
        Range("B2") = "Torsdag"
        Case Is = 5
        Range("B2") = "Fredag"
        Case Is = 6
        Range("B2") = "Lørdag"
        Case Is = 7
        Range("B2") = "Søndag"
        Case Else
        Range("B2") = ""
    End Select