Takto vypadá kód tlačítka, neříkám, že je to stoprocentně programátorsky, ale fungovalo bezchybně...

Private Sub CommandButton1_Click()
FJmeno = Sheets("skutecny nazev listu").Range("I11").Text
JmenosDatumem = FJmeno & Format(Now, "-yyyy-mm")
 If Range("I5") = "" Then
 Exit Sub
 Else
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\skutecna cesta\" & JmenosDatumem & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
 End If
End Sub