Om man kör monthname(04) får man ut månaden "april". Finns det ngn omvänd funktion som tar in månadsnamnet och returnerar motsvarande siffra, tex monthnumber(04) returnerar april.

du har nog skrivit fel i den fråga.
Du undrar om man kan köra monthnumber("april") och få 4 ?
Annars hade den fungerat samma som monthname.

Nej jag tror inte det finns. Skapa en funktion själv vettja?!

Function monthnumber(monthname)
If monthname = "" Then Exit Function
strTemp=""
Select Case monthname
case "januari" strTemp=1
case "februari" strTemp=2
...
End Select
monthnumber = strTemp

End Function

och sedan anropa med monthnumber("april")

Om du vill göra en enkel funktion:

Public Function MonthNumber(Value)
Dim M
    For M = 1 To 12
        If Value = MonthName(M) Then
            MonthNumber = M
            Exit For
        End If
    Next
End Function

Eller nåt sånt här:

Function MonthNumber(m)
  m = "1 " & m & " 2006"
  If isDate(m) Then
    MonthNumber = Month(m)
  Else
    MonthNumber = 0 ' Returnera 0 om det ej är en månad
  End If
End Function