The PDF will be saved at whatever your default save location is for Excel. If you want to change it to the same folder as the workbook, change:
ActiveWorkbook.Name
to:
ActiveWorkbook.FullName

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]