Comment Boxes
 

Hello from Steved

I have over 360 comment boxes in Excel.

Question please.

Is there away to have all the comment boxes the same size.

Thankyou.

Some code is necessary:

Hit ALT+F11 to open Visual Basic Editor
Insert a Module
Paste this code.
Put your cursor in the code and hit F5.

Sub test()
Dim rng As Range

For Each rng In Cells.SpecialCells(xlCellTypeComments)
With rng.Comment.Shape
.Width = 200
.Height = 200
End With
Next
End Sub


--
Rob van Gelder - http://www.vangelder.co.nz/excel


"Steved" wrote in message
...
Hello from Steved

I have over 360 comment boxes in Excel.

Question please.

Is there away to have all the comment boxes the same size.

Thankyou.

Thankyou


-----Original Message-----
Some code is necessary:

Hit ALT+F11 to open Visual Basic Editor
Insert a Module
Paste this code.
Put your cursor in the code and hit F5.

Sub test()
Dim rng As Range

For Each rng In Cells.SpecialCells(xlCellTypeComments)
With rng.Comment.Shape
.Width = 200
.Height = 200
End With
Next
End Sub


--
Rob van Gelder - http://www.vangelder.co.nz/excel


"Steved" wrote in
message
...
Hello from Steved

I have over 360 comment boxes in Excel.

Question please.

Is there away to have all the comment boxes the same
size.

Thankyou.




.