I would like the user to be taken to a new comment, or the existing one, of
the currently selected cell. I can get a new comment inserted

With Selection
.AddComment
.Comment.Visible = False
.Comment.Text Text:=""

End With


but I can't get the cursor to end up inside the comment, awaiting the user's
input.

Any ideas?

Thanks.