hi Howard,

x = Chr(ActiveCell.Row + 61)

happy holidays
isabelle


Le 2012-12-24 16:30, Howard a écrit :
The subject line works on the worksheet, when entered in row 4 it returns an A. What little tweek do I need to make it work in the test code here?
The word "Row" is highlighted along with the error msg.

Sub test()
Dim i As Long
i = Range("G2").Value
Range("A3").Resize(i, i).Select
For i = 1 To i
ActiveCell.Offset(0, i) = i
ActiveCell.Offset(i, 0) = CHAR(Row() + 61) 'SUB OR FUNCTION NOT DEFINED
Next
End Sub

I was a bit suprised that Help was useless using:
Ascii Char
Char()
Char(Row)

Thanks,
Howard