The following code works fine when invoked with alt-f8, etc. But when I
assign a hotkey via the options dialog box and attempt to invoke it using
that hotkey, the last line is not executed or does not work. The comment is
created, and it is blank, but the user is not taken into the edit mode of
the comment. Any ideas?


Dim cmt As Comment
Set cmt = ActiveCell.Comment
If cmt Is Nothing Then
ActiveCell.AddComment Text:=""
End If
SendKeys "%ie~"