First enter this tiny UDF:

Function vba_isdate(r As Range) As Boolean
vba_isdate = IsDate(r)
End Function

Then in B1 enter:

=IF(vba_isdate(A1),1,"") and copy down
--
Gary's Student


"novice33" wrote:

I am trying to create an If statement that would populate a 1 in another cell
by reading the date in the cell next to it. For example, in cell A2 I have
12/12/2005, I want cell B2 to populate with a 1 if there is a date. More or
less, every time a date is entered in Column A, I want Column B to have a 1
next to it. I would appreciate any help given.