například takto
dále pracujete s originálemSub Uloz()
Dim fname As String
fname = Range("A1").Value
With ThisWorkbook
.SaveCopyAs .Path & "\" & fname & ".xlsm"
End With 'ThisWorkbook
End Sub
pracujete s novou kopiíSub Uloz()
Dim fname As String
fname = Range("A1").Value
With ThisWorkbook
.SaveAs .Path & "\" & fname & ".xlsm", .FileFormat
End With 'ThisWorkbook
End Subcitovat
dále pracujete s originálemSub Uloz()
Dim fname As String
fname = Range("A1").Value
With ThisWorkbook
.SaveCopyAs .Path & "\" & fname & ".xlsm"
End With 'ThisWorkbook
End Sub
pracujete s novou kopiíSub Uloz()
Dim fname As String
fname = Range("A1").Value
With ThisWorkbook
.SaveAs .Path & "\" & fname & ".xlsm", .FileFormat
End With 'ThisWorkbook
End Subcitovat