Clickable Counter

You can use a helper sheet and have a sequential list of numbers up to the highest value you want.

Sample code

Sub samwright()

MsgBox Sheets("Helper").Range("A1").Value
Sheets("Helper").Range("A1").Cut Range("A" & Rows.Count).End(3)(2)
Sheets("Helper").Range("A1").Delete xlUp

End Sub