Try the following code:

Sub alpha()

' Declare the variables
Dim rngCell As Range
Dim strMonthName As String
Dim intMonthNumber As Integer

' Investigate the worksheet entries
For Each rngCell In ActiveSheet.UsedRange

' Initalize the variables
strMonthName = rngCell.Value
intMonthNumber = Month(DateValue(strMonthName & " 1, 1969"))

' Rewrite cell value if a month
If intMonthNumber = 1 And intMonthNumber <= 12 Then _
rngCell.Value = intMonthNumber

Next rngCell
End Sub

Regards,

Alasdair Stirling

"quartz" wrote:

On a sheet there are numerous cells containing month names written out (e.g.
June, December, etc.). I need to convert these to their ordinal values (e.g.
January = 1; June = 6, etc.).

Can anyone post some example code that easily converts these short of having
to do a case select with 12 cases?

Thanks much in advance.