Sub SaveEngine(sFileNum As String)
StrDate = Format(Now(), "dd-mmm-yyyy")
RunNum = Sheets("Sheet1").Range("e3").Value
Sheets("ABI-" & sFileNum).SaveAs Filename:=FileLoc & "\RESP ABI\ABI-Resp " & sFileNum & " " & StrDate & " " & RunNum & ".txt", FileFormat:=xlTextMSDOS, CreateBackup:=False...