Convert month name into number

by

Another way

Excel Formula

=MONTH(1&A1)

VBA

Sub Sample()
    Dim MonthNm As String
    MonthNm = "September"
    Debug.Print Month(DateValue("01 " & MonthNm & " 2012"))
End Sub

or 

Sub Sample()
    Dim MonthNm As String
    MonthNm = "September"
    Debug.Print Application.Evaluate("=MONTH(1&" & Chr(34) & MonthNm & Chr(34) & ")")
End Sub

Replace

More Related Contents:

  1. Autofilter with column formatted as date
  2. Changing the date format to yyyy-mm-dd
  3. Excel VBA: Convert a date string to a Unix timestamp
  4. How to copy Outlook mail message into excel using VBA or Macros
  5. For Loop not fully cycling in excel VBA [duplicate]
  6. Unique Random Numbers using VBA
  7. Populate unique values into a VBA array from Excel
  8. How to add a named sheet at the end of all Excel sheets?
  9. VBA general way for pulling data out of SAP [closed]
  10. Closing Excel Application using VBA
  11. Delete Row based on Search Key VBA
  12. How to add a button programmatically in VBA next to some sheet cell data?
  13. What are the benefits of setting objects to “Nothing”
  14. How can I kill task manager processes through VBA code?
  15. How to send mail when the .Send does not work?
  16. Get Unicode characters with charcode values greater hex `FFFF`
  17. How do I click a link on a web page using Excel VBA?
  18. Ping IP Address with VBA code and return results in Excel
  19. VBA copy cells value and format
  20. Paste Excel Chart into Powerpoint using VBA
  21. running excel macro from another workbook
  22. Multiply Entire Range By Value?
  23. EXCEL VBA UserInterfaceOnly:= True not working
  24. VBA Excel – IFERROR & VLOOKUP error
  25. Finding a workbook in one of multiple Excel instances
  26. Export multiple sheets to PDF simultaneously without using ActiveSheet or Select
  27. How to check whether certain sheets exist or not in Excel-VBA? [duplicate]
  28. Application.WorksheetFunction.Match method
  29. Excel – Using COUNTIF/COUNTIFS across multiple sheets/same column
  30. Excel telling me my blank cells aren’t blank

Leave a Comment