Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Dim fso
Dim f
Dim readText As String
filepath = "C:\temp\FileName.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(filepath)
readText = f.ReadAll
readText = Replace(readText, vbCrLf, "")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=readText
End Sub