Try this for the active sheet
It will use the B column to display the 0 or 1

Sub test()
Dim a As Long
For a = 2 To 300
If Cells(a, 1).Value = Cells(a - 1, 1).Value Then
Cells(a, 2).Value = 0
Else
Cells(a, 2).Value = 1
End If
Next a
End Sub



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Jeff" wrote in message ...
Hello,

I need help designing a VBA Macro to execute the following:

IF (A2=A1,0,1)
I need to execute this VBA macro from 1 to 300.
Thanks,