score:1

Accepted answer

A sheet name cannot be blank. Since you have not defined szToday, it is blank.

Is this what you are trying

Sheets.Add After:=ActiveSheet
szToday = Format(Date, "DD-MM-YY")
ActiveSheet.Name = szToday

Or simply

Sheets.Add After:=ActiveSheet
ActiveSheet.Name = Format(Date, "DD-MM-YY")

or a one liner

Sheets.Add(After:=ActiveSheet).Name = Format(Date, "DD-MM-YY")   

Related Query