On Jun 13, 12:56*pm, Code Numpty
wrote:
Type the number 1 in any cell and number 2 in the cell next to or below it..
Highlight both cells, place your mouse pointer over the bottom right corner
of the cell (Fill handle) until the mouser pointer changes to a small black
cross. Left click and drag down or across until 5000 is reached.



"Sonal" wrote:
Hello,

i have to generate autonumber in excelsheet from no 1 to 5000. Can anybody
sggest me how go abt it as fast as possible ...without typing those many no.
Its urgent. plesse help.
i am using office 2003.

Thnx & Regards,
Sonal- Hide quoted text -

- Show quoted text -

Run the following macro:

Sub gen_num()
Dim Row_count As Integer
Row_count = 1
Do While Row_count < 5001
Range("A" & Row_count).Value = Range("A" & Row_count).Row
Row_count = Row_count + 1
Loop
End Sub