vb code to save pdf file in same location of original file

[ateebali]

Dear Sir
I am using following code and I have to mention location to save the file, is it possible that the vb code should save the file in same location as of original file, so I don't need to change the code in every computer.


Sub PDFActiveSheet()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:="C:\Users\ltpurc08\Desktop\Thread Consumption Software\TCS Style Name " & Range("D16").Value _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True


End Sub

 

[njimack]

Try this:

Sub PDFActiveSheet()
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\Thread Consumption Software\TCS Style Name " & Range("D16").Value _
 , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
 :=False, OpenAfterPublish:=True


 End Sub

 

[ateebali]

thanks working fine