Macro to save as PDF to a changeable path

Looking For any help I am using the below code and works well for want I need however I would like to be able to add the file to my flash drive however when I do the path changes on different computer and the code fails. is there a way I can change the code to work with different drive letters on different computers

Sub SaveCurrentToPDF()

Dim OriginalSheet As String


OriginalSheet = ActiveSheet.Name

   
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       "f:\PDF\" & "book 1" & Format(Range("z4").Value, "dd-mmm-yy") & ".pdf"

'Reset location
Sheets(OriginalSheet).Select



End Sub

Thanks