navngiv fil med cellenavn

Morten har engang lavet noget kode til mig:

Sub gemsompdf()
'
' gemsompdf Makro
' Gemmer aktive ark som PDF
' Advarer ikke om overskrivning...

Dim DTAddress As String
    DTAddress = CreateObject("WScript.Shell").SpecialFolders("Desktop") _
    & Application.PathSeparator
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        DTAddress _
        & " " & "algrafisk timeopgørelse" _
        & " " & ActiveSheet.Name _
        & " " & Date, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub

men istedet for ActiveSheet.Name ville jeg gerne have den til at skrive det der er i "h5" kan bare ikke få det til at virke.
Har prøvet med    Range("h5").value men det virker ikke??

på forhånd tak :-)