Kerry, do you mean...somthing like this in Activesheet.

Sub Macro()
'other code
If Range("B4") < Range("C3") Then
Range("B4") = Range("B4") + 1
ElseIf Range("B4") = Range("C3") Then
Range("B4") = 1
End If
'other code
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Kerry" wrote:

Hi,
When I run a VBA program in excel 2003 I want to compare the value in cell
B4 to the value in C3. If B4 < C3 then add 1 to B4 if not continue until
B4=C3 then reset to 1.
If B4<C3+1 else "1"
How do I write this in VBA?

Thankyou
--
Kerry