vba to position comment boxes not working

[cjcass]

Hi,
I have the following vba macro to re-position comment boxes on a worksheet but it's having no effect, would anyone have any ideas as to why that could be?
Many thanks,

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

 

[Fluff]

That works for me.
Are you using the old style comments or the new threaded comments?
Is the code looking at the correct sheet?

 

[cjcass]

Hi, thanks for responding.
It was 'ActiveSheet' so I changed it to 'Sheet1' to see if that made a difference.
Re. threaded comments - am using Excel 2016, the comments are generated from a macro using 'AddComment', if that helps in any way?

 

[Fluff]

What is the name of the sheet you want this to work on, or do you want it to work on the active sheet?

 

[cjcass]

the active sheet is fine

 

[Fluff]

In that case use

For Each cmt In ActiveSheet.Comments

 

[cjcass]

That's what I had previously to Sheet1, doesn't make any difference.

 

[Fluff]

Are the comments always visible, or just on mouse over?

 

[cjcass]

on mouse over.
after I run this code there is no change to the comment box positions

 

[Fluff]

That only affects the position of the comment if it's permanently visible.
Not sure it's possible to change the position of the comment when displayed via mouse over.