Advertisement
Guest User

Untitled

a guest
Jun 20th, 2019
105
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.40 KB | None | 0 0
  1. CustomerNumber = Range("C1").Value
  2. ActiveWorkbook.ContentTypeProperties("Customer Number").Value = CustomerNumber
  3.  
  4. ReportOutputFile = path & Filename & ".pdf"
  5. ActiveWorkbook.ContentTypeProperties("Report Output File").Value = ReportOutputFile
  6.  
  7. ReportOutputFile = path & Filename & ".pdf"
  8. ActiveWorkbook.ContentTypeProperties("Report_x0020_Output_x0020_File").Value = ReportOutputFile
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement