Comment Box Positioning

[wayneg]

Hi all,

I have the following code that positions my comment box when the cell containing the comment is clicked. the vba positions it to the left of the cell, but it positions it relative to the cell and not relative to the sheet, how can i modify it as sometime if the cell is near the top of the sheet, i lose some of the comment under the ribbon and vice versa if it is near the bottom.

 Dim cmt As Comment 
 
For Each cmt In ActiveSheet.Comments 
   cmt.Shape.Top = cmt.Parent.Top - 50 
   cmt.Shape.Left = _ 
      cmt.Parent.Offset(0, 1).Left - 600 
Next  

[xladept]

Maybe something like:

Please Login or Register  to view this content.

[wayneg]

My error handler popped up using that code.

[xladept]

Sorry, I forgot to set the WF

Please Login or Register  to view this content.