Hi-

I am receiving a compile error when I am trying to insert below code in between my other code. I am sure it is something simple I need to add. Any suggestions.

Thanks

With Sheets("EZE FX")
            .Range("C:J").Copy
With Sheets("FX REC")
            .Range("A:H").PasteSpecial xlPasteValues
        End With
fPATH = "Q:\Reports\FX Open Trades Archive\"
    For i = 0 To 7
        fNAME = "FXOpenTrades" & Format(Date - i, "MMDDYY") & ".xls"
        If Len(Dir(fPATH & fNAME)) > 0 Then Exit For
        If i = 7 Then
            MsgBox "No files found dated in the past 7 days, aborting"
            Exit Sub
        End If
    Next i
    Set sh = ThisWorkbook.Sheets("EZE FX")
    Set oWbK = Workbooks.Open(fPATH & fNAME)
    Range("A4", Range("K" & Rows.Count).End(xlUp)).Copy sh.Range("A" & Rows.Count).End(xlUp).Offset(1)
    oWbK.Close False
            
            With Sheets("EZE FX")
            .Range("C:J").Copy
            With Sheets("FX REC")
            .Range("A:H").PasteSpecial xlPasteValues

     Sheets("FX REC").Activate
     Columns("C:C").Select
     Selection.TextToColumns Destination:=Range("C1"), DataType:=xlFixedWidth, _
         FieldInfo:=Array(0, 3), TrailingMinusNumbers:=True
         Selection.ColumnWidth = 11

     Sheets("Cash Forecast").Activate
     Columns("H:H").Select
     Selection.TextToColumns Destination:=Range("H1"), DataType:=xlFixedWidth, _
         FieldInfo:=Array(0, 3), TrailingMinusNumbers:=True
         Selection.ColumnWidth = 11
  
  
    
    End Sub