Saving as with current date
Sub Matching()
Worksheets("Sheet1").UsedRange.EntireColumn.AutoFit
ActiveWorkbook.SaveAs Filename:="C:\Users\aszcz\Desktop\Nana2" &_
Datum, FileFormat:=-4158, CreateBackup:=False
End Sub
Function Datum() As String
Datum = Format(Date, "_yyyymmdd")
'or
Function DatumSec() As String
DatumSec = Format(Now(), "_yyyymmdd_hhmmss")
End Function
Heart4DataScience 