Save As PDF to excel workbook location

Is there a macro that will save an excel sheet into a destination folder that uses the workbooks location?
We have a purchase order workbook that has several Purchase order sheets on. This is then put into a specific order file
e.g.
Z:\PVE\2-Parking Ventilation Equipment\6-Orders\1234 - Company Ref - Site Ref\Purchasing Info
The location above would change in part (order number, company ref and site ref), this location will be in the excel workbook once copied into the folder.
I need the macro to save as pdf (using excel addin) and save it as the worksheet tab name then locate it in the excel workbook location as above.
This is the code I have to start with, this works well and saves as a pdf into the location shown and names it as the activesheet tab name.

Please Login or Register  to view this content.

Thanks Holger that works great and copies to other sheets.
:D
Kieran