How to fill annual result in excel vba

[minmark]

[TABLE="width: 500"]
<tbody>[TR]
[TD]=Jan!AI18[/TD]
[TD]=Feb!AI18[/TD]
[TD]=Mar!AI18[/TD]
[TD]...[/TD]
[/TR]
[TR]
[TD]=Jan!AI19[/TD]
[TD]=Feb!AI19[/TD]
[TD]=Mar!AI19[/TD]
[TD]..[/TD]
[/TR]
[TR]
[TD]=Jan!AI20[/TD]
[TD]=Feb!AI20[/TD]
[TD]=Mar!AI20[/TD]
[TD]..[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
Dear Gents,
I have the excel sheet above, and I hope to fill them with VBA. Any body has better solution?
Thanks.

 

[BrianJN1]

[TABLE="width: 500"]
<tbody>[TR]
[TD]=Jan!AI18[/TD]
[TD]=Feb!AI18[/TD]
[TD]=Mar!AI18[/TD]
[TD]...[/TD]
[/TR]
[TR]
[TD]=Jan!AI19[/TD]
[TD]=Feb!AI19[/TD]
[TD]=Mar!AI19[/TD]
[TD]..[/TD]
[/TR]
[TR]
[TD]=Jan!AI20[/TD]
[TD]=Feb!AI20[/TD]
[TD]=Mar!AI20[/TD]
[TD]..[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
Dear Gents,
I have the excel sheet above, and I hope to fill them with VBA. Any body has better solution?
Thanks.

While I've looked at this I cannot extract "JanFebMar ..." etc from a string to create a formula to have appropriate 3 letters appear in cells as required.
Against the effort to create the VBA for me it would be easier to build one row of the ....AI18 formulae and drag them down two more rows.

Sorry I can't be more helpful.

 

[Fluff]

How about

Sub Addformula()

    Dim i As Long
    Dim m As String

    For i = 1 To 12
        m = MonthName(i, True)
        Cells(1, i).Formula = "=" & m & "!AI18"
    Next i
    Range("A1:L20").Filldown

End Sub

As you haven't said where to put the formulas.
This puts them in A1 to L1 & then fills down to row 20