Right click sheet tabview codecopy/paste thischange column to suitformat
column as desired

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 7 Then Exit Sub
Application.EnableEvents = False
Target = DateSerial("2008", Month(Target), Day(Target))
Application.EnableEvents = True
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Tim Elhatton" wrote in message
...
Hi there,
I would like a user to enter JUST the Day and Month....and the year
default
to 2008.
Does anyone have any ideas?