standardize comment box size in a single column...

[sadams1]

I have the following to standard comment box sizes for a sheet:

Sub Comments_Format()
Dim cmt As Comment
For Each cmt In ActiveSheet.Comments
cmt.Shape.Width = 100
Next cmt
End Sub



is it possible to apply this to just one column?
Thanks!
Steve

 

[JoeMo]

Like this for, say, Column G comments:

Sub test()
Dim cmt As Comment
For Each cmt In ActiveSheet.Comments
    If cmt.Parent.Address Like "$G$*" Then cmt.Shape.Width = 100
Next cmt
End Sub

 

[sadams1]

like this for, say, column g comments:

sub test()
dim cmt as comment
for each cmt in activesheet.comments
    if cmt.parent.address like "$g$*" then cmt.shape.width = 100
next cmt
end sub

awesome! Thank you!