I could not get that to work but this did:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsDate(Target) Or Target.Column < 1 Then Exit Sub
Target.Value = DateSerial(2009, Month(Target), Day(Target))
End Sub

Tom

"Don Guillett" wrote:

Agree that you don't care about the year but to do as you ask for numbers in
col A
right click sheet tabview codeinsert thisformat your column as desired.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsNumeric(Target) Or Target.Column < 1 Then Exit Sub
Target.Value = DateSerial(2009, Month(Target), Day(Target))
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"JCarlosJr" wrote in message
...
Hi gang,

Its tax time and I'm trying to enter my expenses ito EXCEL for last year
(don't even remind me I should do this as the year progresses).

Anyway, for speed of entry I would like to enter just mm/dd. Excel will
complete the year for me as 2010.

I could change the system date, but this has bad reprocussions, especaill
when multi-tasking.

I could create a column which subtracts 365 from my entry column and then
paste values from my "dummy" column into my entry column.

BUT, does anyone have a better suggestion to force dates entered on a
specific book, sheet, or even colum to s different default year than the
system date year?


.