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
Bookmarks