Prosim za pomoč - Excel

Function razpon(first As Date, last As Date)
    Dim d As Date
    d = first
    Dim s As String
    s = Mesec(DatePart("m", d))
    While d < last
        d = DateAdd("m", 1, d)
        s = s & ", " & Mesec(DatePart("m", d))
        If DatePart("m", d) = 12 Or d >= last Then
            s = s & " " & DatePart("yyyy", d)
        End If
    Wend
    razpon = s
End Function

Function Mesec(i As Integer) As String
    Select Case i
        Case 1
            Mesec = "januar"
        Case 2
            Mesec = "februar"
        Case 3
            Mesec = "marec"
        Case 4
            Mesec = "april"
        Case 5
            Mesec = "maj"
        Case 6
            Mesec = "junij"
        Case 7
            Mesec = "julij"
        Case 8
            Mesec = "avgust"
        Case 9
            Mesec = "september"
        Case 10
            Mesec = "oktober"
        Case 11
            Mesec = "november"
        Case 12
            Mesec = "december"
    End Select
End Function