This is crude but will do it for you!

Code:
--------------------
Dim Rng As Range, MyCell As Range
Dim MyNum As Double, i As Long
Set Rng = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
With Rng
MyNum = Application.WorksheetFunction.Large(Rng, 1)
End With
For i = MyNum To 1 Step -1
Cells(i, 1) = MyNum
MyNum = MyNum - 1
Next i
--------------------


ryguy7272;523377 Wrote:
I used to have a macro that inserted rows, between numbers, and inserted
the
missing numbers as it looped down the list. Can't find it now...

Basically, if I have the following setup:
A1 = 1
A2 = 8
A3 = 10

I want to see:
A1 = 1
A2 = 2
A3 = 3
....
A9 = 9
A10 = 10

How can I do this?

Thanks,
Ryan--

--
Ryan---
If this information was helpful, please indicate this by clicking
''Yes''.


--
Simon Lloyd

Regards,
Simon Lloyd
'Microsoft Office Help' (http://www.thecodecage.com)
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=1
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=143638