Function MyMonthName(ByVal m As Long, Optional ByVal appr As Boolean = False) As String
   Dim v
   v = CDate("2004-" & m & "-01")

   Dim fmt As String
   If appr Then
      fmt = "MMM"
   Else
      fmt = "MMMM"
   End If

   MyMonthName = Format(v, fmt)
End Function