Give a cell as reference in a module

[abdul43]

HI ,
I have a code for getting increasing numbers in a cell.... that is .....

Sub Count()
With ActiveSheet.Range("H7")
.Value = .Value + 1
Application.Wait (Now + TimeValue("00:00:01"))
ActiveSheet.PrintOut
If .Value >= 10 Then Exit Sub 'limit
End With
Application.OnTime Now + TimeValue("00:00:02"), "Count" 'every 2 seconds
End Sub

here in line 6 "If .Value >= 10 Then Exit Sub 'limit" i want to replace the value 10 by a cell reference in a sheet within the same work book so it can take the value " limit" from a cell.
Advance thanks.

 

[abdul43]

Really clear code worked nicely thanks to you Mr. moderator.
and also thanks to you momentman.

 

[Momentman]

been away from my desk

@Rory: It appears this has done the trick but we would need confirmation from the OP.

@Abdul: I would suggest that you change the name of the procedure from Count, maybe to CountCode or something else

 

[RoryA]

Others did the hard part, I just tweaked it, but glad to help in any way.