What context must I use to rename a worksheet tab with the the current date

I have success with naming it in a macro with text using
ActiveSheet.Selec
ActiveSheet.Name = "HD

I would like tab to be named "Date-HD" but the TODAY() function doesn't work.....

Thanks for your input