Auto Number Generation

**abdul43** · 09-10-2014, 10:05 AM

HI,
Is there any code by which i can get numbers in a specific cell increasing after every 2-3 seconds??? for example

when i press start button inserted by control tool box
in cell A1
numbers start changing from
1
2
3
4
5
6
till the last given limit.
Help me if possible, please.

**nathansav** · 09-10-2014, 10:17 AM

Public sTime As Date

Sub StartTimer()
sTime = Now + TimeValue("00:00:02")
Application.OnTime sTime, "Increment", , True
End Sub

Sub Increment()
Range("a1").Value = Range("a1").Value + 1
sTime = Now + TimeValue("00:00:02")
Application.OnTime sTime, "Increment", , True
End Sub

**abdul43** · 09-10-2014, 02:21 PM

Thnks it worked with a tiny error that is

by using this code when i want to insert a button the dialogue comes "Assign Macro" and there are two already which one to assign?
and after assigning i click on button the dialogue comes:

"Cannot run the macro 'Book1!increment'. the macro may not be available in this workbook or all macro may be disabled.

bUT i have enabled the macro.
Thanks in Adavnce