Howard formulated on Monday :

Howard, Merry Christmas to you too!

I actually found this to work...

Sub MakeRanger2()

Dim lCount&, i&

ActiveSheet.UsedRange.ClearContents

lCount = InputBox(" Enter a number.", _

"a Number")

With Range("A3")

For i = .Row To .Row + lCount - 1

Cells(i, 1).Offset(0, 1) = i

Cells(i, 1) = Chr(Rows(i).Row + 62)

Next

End With

End Sub

..which returns the following results which I understand is what you

want...

A 3

B 4

C 5

D 6

E 7

..where the number input was 5.

--

Garry

Free usenet access at

http://www.eternal-september.org
Classic VB Users Regroup!

comp.lang.basic.visual.misc

microsoft.public.vb.general.discussion