Hi,

The following works for me....probably not the most elegant but I
guess you will only run it once or twice!

Stew


Sub looper()

Application.ScreenUpdating = False


Range("A1").Select
count1 = 65
While count1 < 91
firstvalue = Chr(count1)

Count2 = 65
While Count2 < 91
SecondValue = Chr(Count2)

count3 = 65
While count3 < 91
thirdvalue = Chr(count3)
output = firstvalue + SecondValue + thirdvalue
ActiveCell.Value = output
ActiveCell.Offset(1, 0).Select
count3 = count3 + 1
Wend
Count2 = Count2 + 1
Wend
count1 = count1 + 1
Wend


Application.ScreenUpdating = True

End Sub