macro save worksheet as pdf with same workbook filename and location

[skeeta]

Hi,have viewed some macros that neeeeearly do this for me
e.g
Sub Create_PDF()

Application.ScreenUpdating = False
Range("A1").Select
x = ActiveCell.Value
ActiveSheet.PageSetup.PrintArea = "$A$4:$AB$52"

Dim ThisWBPath As String
ThisWBPath = ThisWorkbook.Path
ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="Adobe PDF", PrToFileName:=ThisWBPath & "\" & x & ".pdf"

Application.ScreenUpdating = True

End Sub

I got this from a thread here,it does save the file to the same location,but file name is only "pdf"

thanks

 

[BOBBEY]

Did anyone ever get a code to work for this?