Formatting and referring to secondary Workbook

[FranktheBank]

Hello All,

Here's the problem: I have one main workbook called Recon0110 (this part changes everyday). I want a macro that will open three other Excel sheets, reformat some of the columns and finally will take certain sections from each and paste them into my original Recon0110.

So far I have:

Sub New_Entry()
'
' New_Entry Macro
'
Dim New_Reconciliation As String
Dim Cadet As String
Dim Final_Reconciliation As String

If MsgBox("Do you want to Reconcile the 601 for " & Format(Now(), "mmmm") & " " & Day(Date) & "?", vbYesNo) = vbYes Then
    Worksheets(2).Range("a16").Copy
    Worksheets(1).Range("Update").PasteSpecial xlPasteValues
        Range("FreeBalance_Total").Select
        Dim J As Long
        For J = 1 To 25
        ActiveCell.Offset(-1, 0).EntireRow.Insert
        Next J
            Worksheets(2).Range("b19:b24").Copy
            Worksheets(2).Range("J19:J24").PasteSpecial xlPasteValues
                 ActiveWorkbook.SaveAs Range("New_Reconciliation"), FileFormat = 52
    Workbooks.Open Filename:=Range("Cadet").Value
    Sub New_Entry()
'
' New_Entry Macro
'
Dim New_Reconciliation As String
Dim Cadet As String
Dim Final_Reconciliation As String

If MsgBox("Do you want to Reconcile the 601 for " & Format(Now(), "mmmm") & " " & Day(Date) & "?", vbYesNo) = vbYes Then
    Worksheets(2).Range("a16").Copy
    Worksheets(1).Range("Update").PasteSpecial xlPasteValues
        Range("FreeBalance_Total").Select
        Dim J As Long
        For J = 1 To 25
        ActiveCell.Offset(-1, 0).EntireRow.Insert
        Next J
            Worksheets(2).Range("b19:b24").Copy
            Worksheets(2).Range("J19:J24").PasteSpecial xlPasteValues
                 ActiveWorkbook.SaveAs Range("New_Reconciliation"), FileFormat = 52
    Workbooks.Open Filename:=Range("Cadet").Value
    Workbooks("Cadet").Sheets("FB_Detail_Report").Activate
    Columns("A:H").EntireColumn.AutoFit
    Columns("F:H").NumberFormat = "#,##0.00_);(#,##0.00)".Sheets("FB_Detail_Report").Activate
    Columns("A:H").EntireColumn.AutoFit
    Columns("F:H").NumberFormat = "#,##0.00_);(#,##0.00)"

This reformats my original fine and opens the secondary Workbooks("Cadet") just fine, but it will not format Workbooks("Cadet") as per the Autofit and Numerical formating.

I hope once I get this fixed I should be able to do the same with my other two workbooks that I will need to format similarly.

As ALWAYS a BIG Thanks in advance

[FranktheBank]

SOLVED Thanks