I used to modifiy my macro each day and change the date then run the macro. Basically CTRL-F find/replace AABBCC with the corresponding MMDDYY date for that day then run the macro. I found out that this code...

Dim DtRNG As Range, Dt As Range

Set DtRNG = Sheets("Sheet1").Range("A:A").SpecialCells(xlConstants)

For Each Dt In DtRNG
...would pull one date from the list in column A then run the macro and rinse and repeat for each Dt in DtRNG. The problem I am running into is I don't just need one date replaced. I need six different dates replaced. Is there a way I can replace the multiple dates without having to use CTRL-F to modify the macro each time. Below is pieces of the code that reference each date. Date1 and Date11 are the same date but different formats. I know I can use the above code to replace one of those dates but what about multiple dates?

Workbooks.Open Filename:= _
        "I:\ACCOUNTING\Clear Payments\2013\2013-01\Completed\DATE1-DATE6_DailyFile.xls"
Workbooks.Open Filename:= _
        "I:\ACCOUNTING\Clear Payments\2013\2013-01\Completed\DATE1_CIC_LocationSummaryReport.xls"
ActiveCell.FormulaR1C1 = "DATE11"
Workbooks.Open Filename:= _
        "I:\ACCOUNTING\Clear Payments\2013\2013-01\Completed\DATE2_CIC_LocationSummaryReport.xls"
ActiveCell.FormulaR1C1 = "DATE22"
Workbooks.Open Filename:= _
        "I:\ACCOUNTING\Clear Payments\2013\2013-01\Completed\DATE3_CIC_LocationSummaryReport.xls"
ActiveCell.FormulaR1C1 = "DATE33"
Workbooks.Open Filename:= _
        "I:\ACCOUNTING\Clear Payments\2013\2013-01\Completed\DATE4_CIC_LocationSummaryReport.xls"
ActiveCell.FormulaR1C1 = "DATE44"
Workbooks.Open Filename:= _
        "I:\ACCOUNTING\Clear Payments\2013\2013-01\Completed\DATE5_CIC_LocationSummaryReport.xls"
ActiveCell.FormulaR1C1 = "DATE55"
Workbooks.Open Filename:= _
        "I:\ACCOUNTING\Clear Payments\2013\2013-01\Completed\DATE6_CIC_LocationSummaryReport.xls"
ActiveCell.FormulaR1C1 = "DATE66"
Here is my thought process but its stops at one date

Dim DtRNG As Range, Dt As Range

Set DtRNG = Sheets("Sheet1").Range("A:A").SpecialCells(xlConstants)

For Each Dt In DtRNG

Workbooks.Open Filename:= _
        "I:\ACCOUNTING\Clear Payments\" & Format(Dt, "YYYY") & "\" & Format(Dt, "YYYY") & "\Completed\" & Format(Dt, "MMDDYY") & "-DATE6_DailyFile.xls"

Workbooks.Open Filename:= _
        "I:\ACCOUNTING\Clear Payments\" & Format(Dt, "YYYY") & "\" & Format(Dt, "YYYY") & "\Completed\" & Format(Dt, "MMDDYY") & "_CIC_LocationSummaryReport.xls"
ActiveCell.FormulaR1C1 = " & Format(Dt, "MM/DD/YY") & "

Workbooks.Open Filename:= _
        "I:\ACCOUNTING\Clear Payments\2013\2013-01\Completed\DATE2_CIC_LocationSummaryReport.xls"
ActiveCell.FormulaR1C1 = "DATE22"

Workbooks.Open Filename:= _
        "I:\ACCOUNTING\Clear Payments\2013\2013-01\Completed\DATE3_CIC_LocationSummaryReport.xls"
ActiveCell.FormulaR1C1 = "DATE33"

Workbooks.Open Filename:= _
        "I:\ACCOUNTING\Clear Payments\2013\2013-01\Completed\DATE4_CIC_LocationSummaryReport.xls"
ActiveCell.FormulaR1C1 = "DATE44"

Workbooks.Open Filename:= _
        "I:\ACCOUNTING\Clear Payments\2013\2013-01\Completed\DATE5_CIC_LocationSummaryReport.xls"
ActiveCell.FormulaR1C1 = "DATE55"

Workbooks.Open Filename:= _
        "I:\ACCOUNTING\Clear Payments\2013\2013-01\Completed\DATE6_CIC_LocationSummaryReport.xls"
ActiveCell.FormulaR1C1 = "DATE66"