Sub PDFPost00() ' ' PDF_Post Macro ' Macro recorded 12/6/2005 by koc4345 ' For nTabs = 1 To 5 Sheets(nTabs).Select ' This Section creates a PDF in a temp directory established in PDF995 (Port may differ per PC) Cells.Select Application.ActivePrinter = "PDF995 on Ne01:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "PDF995 on Ne01:", Collate:=True ' This Section identifies the PDF destination file name cDestFName = Mid$(ActiveWorkbook.Name, 1, Len(ActiveWorkbook.Name) - 4) & " " & ActiveWindow.ActiveSheet.Name & ".pdf" newHour = Hour(Now()) newMinute = Minute(Now()) newSecond = Second(Now()) + 3 waitTime = TimeSerial(newHour, newMinute, newSecond) Application.Wait waitTime ' This Section will repost the PDF Set fso = CreateObject("Scripting.FileSystemObject") Set aFile = fso.GetFile("\Kapps\KohlerChart\Temp\HTML_PDF.pdf") aFile.Copy ("\\koshfp01\KohlerChart\HTML\" & cDestFName) newHour = Hour(Now()) newMinute = Minute(Now()) newSecond = Second(Now()) + 1 waitTime = TimeSerial(newHour, newMinute, newSecond) Application.Wait waitTime Next nTabs Range("A1", "A3").Select End SubVFP code is simular