I have no clue how to explain it. I use CTRL-F to find and replace the word "DATE1" with example 020113 that is a date. I do the same thing for DATE11 and its the same date 02/01/13 but in this format.

'CTRL-F REPLACE "DATE1" W/1ST DATE OF WEEK, FORMAT MMDDYY
'CTRL-F REPLACE "DATE11" W/1ST DATE OF WEE, FORMAT MM/DD/YY
'ETC...........................................................
'CTRL-F REPLACE "DATE6" W/1ST DATE OF WEEK, FORMAT MMDDYY
'CTRL-F REPLACE "DATE66" W/1ST DATE OF WEE, FORMAT MM/DD/YY

I have another macro that basically does this very thing except it only does it for one date and I have multiple dates in this macro. Here is a small piece of it

Sub GLCompilation()
'
' GLCompilation Macro
'
'===============================================================================
Dim DtRNG As Range, Dt As Range

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

For Each Dt In DtRNG
'================================================================================
    ChDir "I:\ACCOUNTING\Jesse - Recon\Compiled GL Files"
    Workbooks.Open Filename:= _
        "I:\ACCOUNTING\Jesse - Recon\Compiled GL Files\Oracle GL Compilation Template.xlsx"
    ChDir "I:\ACCOUNTING\GL Oracle\complete"
    Workbooks.OpenText Filename:= _
        "I:\ACCOUNTING\GL Oracle\complete\GeneralLedgerFile_" & Format(Dt, "MMDDYY") & ".txt", Origin:=437 _
        , StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1)), _
        TrailingMinusNumbers:=True
All I have to do is type the date in cell A1 in the personal.xls sheet1 tab. I want to do something simular except i have 6 dates total that need to be replaced in the weeklyintegrationsetup macro.