Hi,

I've got the result using the code below:

Sub Sequence()
Dim i As Integer
Dim j As Integer
Dim r As Long
Dim strStart As String
' set the first character of your sequence/string
strStart = "3"
' set the first row of the sheet where you want to put the data
r = 1
' "97" is a code of "a" letter, 122 - "z"
For i = 98 To 122
For j = 97 To 122
'Chr(x) - it returns a letter coded by "x" numer
n = strStart + Chr(i) + Chr(j)
sh.Cells(r, 1).Value = n
r = r + 1
Next j
Next i
End Sub

I hope it helps :o)