I think after Googling I got the solution myself:


Sub ResetComments()
Dim cmt As Comment
For Each cmt In ActiveSheet.Comments
cmt.Shape.Top = cmt.Parent.Top - 20
cmt.Shape.Left = _
cmt.Parent.Offset(0, 1).Left + 10
Next
End Sub
WOuld appreciate if someone could just explain whats the Parent and TOP and LEFT parameters plzzzzzzzz


Regards
e