Custom Drag Fill Series possibility??

[Mr_Ekid]

Given the following cell value: 037-1090000 in B29.

Is it possible to create a custom drag fill series where characters 5&6 (the "10" potion) would change instead of the last digits of the cell value? Furthermore, fill by numbers need to be divisible by 10 and the custom drag & fill would only be applicable to range("B29:B37'). Possible??

Finished result would look like this:
037-1090000
037-2090000
037-3090000
037-4090000
037-5090000
037-6090000
037-7090000
037-8090000
037-9090000

Thanks!

[Gatti]

Without VBA:

=CONCATENATE("037-",ROW()-28,"090000")

With VBA:

Sub TextSequence()

    Dim iFirstRow   As Integer
    Dim iLastRow    As Integer
    Dim iRows       As Integer
    Dim iLoop       As Integer
    Dim sColumn     As String
    Dim sTextLeft   As String
    Dim sTextRight  As String
    
    'Set these values
    iFirstRow = 29
    iRows = 8
    sColumn = "B"
    sTextLeft = "037-"
    sTextRight = "090000"
    
    'Rest of code bellow
    iLastRow = iFirstRow + iRows
    
    For iLoop = iFirstRow To iLastRow
        Range(sColumn & iLoop).Value = sTextLeft & iLoop - iFirstRow + 1 & sTextRight
    Next iLoop

End Sub