marwan hefnawy

Try something like this.


Sub my_date()
Dim MyDate
Dim mydat
MyDate = DateSerial(2004, 7, 30)
mydat = Format(MyDate, "mmmm-yyyy")

MsgBox mydat

End Sub

HTH

Charles


---
Message posted from http://www.ExcelForum.com/