Como puedo hacer una macro que al pasarla a mis compañeros les sea funcional, es para guardar como

lo que tengo y sirve en mi computadora es

Sub Botón24_Haga_clic_en()
Dim NombreArchivo As String
NombreArchivo= Range("O1").Value
Range("f1:i1").Select
Range("i1").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\ddavalos\desktop\Orden de Pago " & NombreArchivo & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True,
IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub

me funciona perfecto el problema es cuando en otra computadora alguien lo quiere usar