Autosize a comment

my macro processes a lot of data and puts a comment in certain cells (several thousand of them). I would like to autosize the comments so that the text can all be read by default.

I found the following on the web:

    
With Worksheets("Budget").Range("A1").AddComment
        .Text x
        .Visible = True
        .Shape.AutoShapeType = msoShapeRoundedRectangle
    End With
    
    Worksheets("Budget").Range("A1").Comment.Shape.Select True

   With Selection
        .AutoSize = True
    End With

My problem is that this requires the cell with the comment in it to be active AND VISIBLE. Is there any way that I can apply the autosize without having the cell VISIBLE?

The reason is that I have 2 worksheets that have comments on them, and I don't want to continually flicker between them activating cells