the previous poster is correct but... if you know the
dates or range of dates that will be entered you can use
this sub in the worksheet module to check and if it = one
of the dates leave as date otherwise format as general,
adapt it to your needs

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Const BD As Date = #1/1/2004#
Const ED As Date = #5/31/2004#
Dim num As Double
On Error GoTo EndSub
If Target.Value = BD And Target.Value <= ED Then
Target.NumberFormat = "m/d/yy"
Else
Target.NumberFormat = "General"
End If
EndSub:
End Sub



-----Original Message-----
Can anyone tell me how to format a cell so that when a
date is entered it formats as a date and when a number
is
entered it formats as a number.

If you use general it auto formats for a date but if you
enter a number in the same cell after a date has been
entered then it still thinks it's a date.

Any help will be appreciated.
.