Excel VBA Макросы. Как присвоить листу имя в виде текущей даты и времени?

[Посетитель]

Как присвоить листу имя в виде текущей даты и времени? Время должно содержать часы и минуты.

[Администратор]

Sub Макрос()
    ActiveSheet.Name = Format(Now, "dd.mm.yyyy hh-nn")
End Sub

[Посетитель]

спасибо