Can someone help me with a macros

[stig]

Hi, I'm using this macro in excel to create a counter, What i need is the ability for it to reset itself to zero (automatically) every time it reaches a specified number in A1.So if I put in a 9 at A1 when the counter reaches 9 it goes to Zero. Help would be appreciated Cheers. Stig

Sub BLACK()
mycount = Range("b9") + 1
Range("b9") = mycount
End Sub