So, in essence, here's what I have

Code:
--------------------
WBNew.SaveAs FileFolder & cell.Value & "_Surplus_" & FORMAT(Now, "yyyy-mmm-dd")
WBNew.Close False
'text
Columns("A:C").Delete
Columns("A:A").Insert
Columns("N:N").Copy _
Destination:=Range("A1")
Columns("N:N").ClearContents

Columns("C:AA").Delete
Columns("A:B").EntireColumn.AutoFit
Range("A1").Select

WBNew.SaveAs FileFolder & cell.Value & "_Surplus_" & FORMAT(Date, "yyyy-mmm-dd") & ".txt", FileFormat:=xlText _
, CreateBackup:=False
'WBNew.SaveAs FileFolder & cell.Value & "_Surplus_" & FORMAT(Now, "yyyy-mmm-dd"), FileFormat:=xlText _
' , CreateBackup:=False
WBNew.Close False
'text
Next
--------------------


--
DKY
------------------------------------------------------------------------
DKY's Profile: http://www.excelforum.com/member.php...o&userid=14515
View this thread: http://www.excelforum.com/showthread...hreadid=392476