Create PDF, name it based on cell

[NoSleepForMe]

I have a sheet I wanna insert a button to save as pdf

It needs to create a PDF based on A1:H41 and name it from the cell D3 - I need it to ask where to save it, can anyone help me in the right direction?

[cytop]

Use the macro recorder to get basic code for saving the range as a PDF, then post it. Changes to that will be minor

[NoSleepForMe]

Sub Gemsompdf()
'
' Gemsompdf Makro
'

'
ChDir "C:\Users\Martin\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Martin\Desktop\HERE SHOULD BE CONTENT OF D3.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub

And I should choose where to save every time?