anchoring comments/notes active vs non-active cells

[sadams1]

I have the following which seems to reset comment/note boxes only when the red indicator is hovered over:


Sub ResetComments()
Dim cmt As Comment
For Each cmt In ActiveSheet.Comments
cmt.Shape.Top = cmt.Parent.Top + 5
cmt.Shape.Left = _
cmt.Parent.Offset(0, 1).Left + 5
Next
End Sub


However, if the cell is activated & "edit note" is selected, the note disappears to a distant part of the spreadsheet. Can the code I have be modified to reset the note location if the cell is activated & "edit note" selected?

Thanks!
Steve