Sub ulozit()

Const cesta As String = "C:\soubory\"

jmeno = cesta & Range("C1") & "\" & Format(Now, "yyyy_mm_") & Range("C1") & ".xlsx"
 
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=jmeno, FileFormat:=xlOpenXMLWorkbook  'nebo 51
Application.DisplayAlerts = True
End Sub