Just incase any one is interested I've turned it into a function

Code:
Public Function MonthName(intMonth As Integer) As String
'by Mark Sreeves
'with thanks to Serge

  Select Case intMonth
    Case 1 To 12
      MonthName = Format(intMonth & "/" & intMonth, "mmmm")
    
    Case Else
      MonthName = ""
  
  End Select

End Function
------------------
Mark Sreeves
Analyst Programmer

[email protected]
A BMW Group Company