Сохранение по имени из ячейки

Sub macros1()
'
' macros1 macros
'
 
'
ChDir "\\Asu11-pc\e\schet"
Dim a
a = Sheets("List").[a17].Value
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        "\\Asu11-pc\e\schet" & a & ".pdf", Quality:=xlQualityStandard _
        , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub

 & a &

Sub макрос()
   
    Dim FileName As String
  
    FileName = Sheets("Счет").[a17].Value
 
    Range(ActiveSheet.PageSetup.PrintArea).ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        "\\Asu11-pc\e\Счета за проживание гостям\" & FileName & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
       
End Sub

Sub Макрос2()
'
' Макрос2 Макрос
'
 
'
    ChDir "\\Asu11-pc\e\Счета за проживание гостям"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        "\\Asu11-pc\e\Счета за проживание гостям\Выставить счет.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub

If Dir("\\Asu11-pc\e\Счета за проживание гостям\", vbDirectory) = "" Then
        MsgBox "Такого диска не существует"
        Exit Sub
End If