I use this to save a file in a workbook, however after saving it, it opens declaring there are unreadable content errors, fix? Yes/No. When I select Yes, another display, that we just close. We then proceed to resave the file again under its original name and it is fine.
Is there a way to capture the filename and do the reopen, fix, save and close in a macro?
We are having issues figuring out just what is causing the unreadable content. I was thinking if we can fix the file, we do not have to dig so far into this and why the content is bad...
'Save file to FName2
Application.DisplayAlerts = False 'use if overwritting file to nix popup
Dim FName2 As String
' L-learned do not use lettered drives
FName2 = "\\na\Global-Groups\Holland\Operations\Logistics\DSC\Go to Work Signals\RePlan Report\AM PM RePlan Report "
FName2 = FName2 & Format(Date, "yyyy.mm.dd") & " " & Format(Time, "hhmm") & ".xlsx"
ActiveWorkbook.SaveAs Filename:= _
FName2, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False