try
right click sheet tabview codecopy/paste thisSAVE

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.row < 2 Or Target.Column < 1 Then Exit Sub
Application.EnableEvents = False
x = Target
Target = Left(x, 2) & "/" & Mid(x, 3, 2) & "/" & Right(x, 2)
Application.EnableEvents = True
End Sub

--
Don Guillett
SalesAid Software

"sj" wrote in message
...
my client says this worked in Office 97 and he formatted the cells to be
date
and then just entered numbers like 010505 and it set the formatting
correctly-any other idea?

"sj" wrote:

enter date 010305 and the date changes to 3/18/28 very strange and can
be
repeated. Is there a fix for this? Running excel 2003, 11.6113.5703