Titel liinje

Function Filnavn(art)
    Application.Volatile
     
    If ActiveWorkbook.Path <> "" Then A$ = " - Gemt"
   
    Select Case art
        Case Is = 1
            Filnavn = Application.Caption + A$
        Case Is = 2
            Filnavn = ActiveWorkbook.Name
        Case Is = 3
            Filnavn = ActiveWorkbook.Path
        Case Is = 4
            Filnavn = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
        Case Is = 5
            Filnavn = Range("a1").Worksheet.Name
        Case Is = 6
            Filnavn = ActiveWorkbook.Name & "!" & Range("a1").Worksheet.Name
        Case Is = 7
            Filnavn = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & "!" & Range("a1").Worksheet.Name
        Case Is = 8
            Filnavn = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
        Case Else
            Filnavn = CVErr(xlErrNA)
    End Select
End Function