自动插入批注并调整大小

吧里有朋友问过一个问题：
我想建立一个自动插入标注的宏（带快捷键），标注中只显示今日日期即可，然后标注外框大小需调整为刚好容纳日期即可，默认的太大。
代码如下：

Sub AutoAddComment()
On Error Resume Next
ActiveCell.AddComment
With ActiveCell.Comment
 .Text CStr(Date)
 .Shape.TextFrame.AutoSize = True
End With
End Sub

快捷键可以自行设定。