VBA PDF gem navn med tekst fra celle

Hej kloge hoveder,

Hvis vi forestiller os at der står "test NY" i Ark1 celle D10.

Jeg vil gerne have at filstien kommer til navnet på PDF-filen er "Test test NY", og at min filsti kommer til at hedde "Drev:\Test\Test testNY.pdf"

Jeg får det simpelthen ikke til at fungere med nedenstående VBA-kode. Hvad skal jeg gøre anderledes, for at få det til at virke?

    Sheets("Ark1").Select
    filnavn = "Test" & Range("D10").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "Drev:\Test\" & filnavn & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True

PFT