Hi Robert

Sub test()
Dim D As Date
D = DateSerial(2008, 6, 21)
MsgBox D
MsgBox Format$(D, "mmmm")
End Sub

Best wishes Harald

"RobcPettit" wrote in message
...
Hi, using an input box in vba, were a date ia added, I want to name
worksheets based on the month of the given date. For example if
21/6/08 was entered, then my worksheet will be called June. How do I
get the information using vba.
Regards Robert