Hej!

Jag tror inte det går att spela in ett makro på det viset. Saken är den att när sparafönstret är klart så skapas koden i sin helhet.

Av det skälet får du nog trycka på [Alt] + [F11] och kika på den kod som genererats. Där får du ta bort allt som har med själva inspelningen att göra. Sedan får du själv komplettera koden med nedanstående:

    Dim sFileName As Variant
    sFileName = Application.GetSaveAsFilename("Test.pdf", "PDF Files (*.pdf), *.pdf")
   
    If sFileName <> False Then
        Call ActiveSheet.ExportAsFixedFormat(xlTypePDF, sFileName, xlQualityStandard, True, False, , , True)
    End If

Mvh

/Kihlman