Macro to Name New Sheet

[sully2]

Hi and thanks in advance for any help, I'm using Excel 2013 and I would like to know if anyone can help develop a macro to name a new worksheet? The worksheet needs to be named like;

"Today's Date Report", so it needs to look something like - 29 Sep Report

Cheers!

 

[VoG]

Try

Sub atest()
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Format(Date, "dd mmm") & " Report"
End Sub

 

[sully2]

Thanks very much VoG, great macro, works a treat!