Dynamic file name and loop question

[drno3228]

Hey guys,

I'm trying to use the following code to open a file path name that changes based on month and year, and loops until it has completed the process for 12 months. One row per a month. Right now, the following code doesn't loop, and I receive a "Compile error: Variable not defined".

Sub ReinvestmentIncome_Check()

Dim wb As Workbook
Dim Lmonth As Date
Dim Smonth As Date
Dim Yr As Date
Dim Syr As Date

Lmonth = ActiveSheet.Range(A2).Value
Smonth = ActiveSheet.Range(B2).Value
Yr = ActiveSheet.Range(C2).Value
Syr = ActiveSheet.Range(D2).Value

Set wb = Workbooks.Open("J:\CF_NIM\" & Yr & " Fair Value Analysis\Monthly Fair Value Attribution\" & Lmonth & " " & Syr & "\" & Smonth & " " & Syr & " FV Return Estimation & Adj Detail.xls")
    
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("LC & Float").Select
    Windows("Nfloat Attribution History.xlsm").Activate
    ActiveCell.FormulaR1C1 = _
        "=-'[Feb 11 FV Return Estimation & Adj Detail.xls]LC & Float'!R62C12/10^6"
    ActiveCell.Offset(0, 2).Range("A1").Select
    ActiveCell.FormulaR1C1 = _
        "=-SUM('[Feb 11 FV Return Estimation & Adj Detail.xls]LC & Float'!R62C12:R142C12)/10^6-RC[-25]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    
End Sub

Excel workbook that it will run in:

[TABLE="width: 715"]
<tbody>[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]Period[/TD]
[TD]Residual[/TD]
[TD]Reinvestment Income[/TD]
[TD][/TD]
[TD]Coupon Income Check[/TD]
[/TR]
[TR]
[TD]January[/TD]
[TD]Jan[/TD]
[TD]2011[/TD]
[TD]11[/TD]
[TD]Jan-11[/TD]
[TD="align: right"]28 [/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]February[/TD]
[TD]Feb[/TD]
[TD]2011[/TD]
[TD]11[/TD]
[TD]Feb-11[/TD]
[TD="align: right"](6)[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]March[/TD]
[TD]Mar[/TD]
[TD]2011[/TD]
[TD]11[/TD]
[TD]Mar-11[/TD]
[TD="align: right"]12 [/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]April[/TD]
[TD]Apr[/TD]
[TD]2011[/TD]
[TD]11[/TD]
[TD]Apr-11[/TD]
[TD="align: right"]41 [/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]May[/TD]
[TD]May[/TD]
[TD]2011[/TD]
[TD]11[/TD]
[TD]May-11[/TD]
[TD="align: right"]36 [/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]June[/TD]
[TD]Jun[/TD]
[TD]2011[/TD]
[TD]11[/TD]
[TD]Jun-11[/TD]
[TD="align: right"]11 [/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]July[/TD]
[TD]Jul[/TD]
[TD]2011[/TD]
[TD]11[/TD]
[TD]Jul-11[/TD]
[TD="align: right"]18 [/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]August[/TD]
[TD]Aug[/TD]
[TD]2011[/TD]
[TD]11[/TD]
[TD]Aug-11[/TD]
[TD="align: right"]12 [/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]September[/TD]
[TD]Sep[/TD]
[TD]2011[/TD]
[TD]11[/TD]
[TD]Sep-11[/TD]
[TD="align: right"]12 [/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]October[/TD]
[TD]Oct[/TD]
[TD]2011[/TD]
[TD]11[/TD]
[TD]Oct-11[/TD]
[TD="align: right"]33 [/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]November[/TD]
[TD]Nov[/TD]
[TD]2011[/TD]
[TD]11[/TD]
[TD]Nov-11[/TD]
[TD="align: right"]97 [/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]December[/TD]
[TD]Dec[/TD]
[TD]2011[/TD]
[TD]11[/TD]
[TD]Dec-11[/TD]
[TD="align: right"]36 [/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody><colgroup><col><col><col><col><col><col><col><col><col></colgroup>[/TABLE]