ad 2.
Sub Tlacitko()
'
'Do pole A1 vlozi datum a ulozi dokument
'
Range("a1").Value = Now()
ActiveWorkbook.Save
End Sub
ad 2.
Sub Tlacitko()
'
'Do pole A1 vlozi datum a ulozi dokument
'
Range("a1").Value = Now()
ActiveWorkbook.Save
End Sub