unsquishing comment boxes for individual cells...

[sadams1]

I have code that standardizes all comment boxes but is it possible to isolate this for one cell?
The reason I'd like this is because boxes are getting squished flat or distorted when moved around even if "locked"

This is what I have:

Sub Comments_Format()
Dim cmt As Comment
For Each cmt In ActiveSheet.Comments
cmt.Shape.Width = 800
cmt.Shape.Height = 450

Next cmt
End Sub

 

[Dryver14]

something like

Sub Comments_Format

Activecell.Comment.Shape.Width = 800
Activecell.Comment.Shape.Height = 450

End Sub

Select the cell and allocate a shortcut key

 

[sadams1]

something like

Sub Comments_Format

Activecell.Comment.Shape.Width = 800
Activecell.Comment.Shape.Height = 450

End Sub

Select the cell and allocate a shortcut key

SWEET! Many thanks!
On a similar note, is it possible to do something with textboxes like this? All the stuff I found dealt with autosizing to text. I'd like to active a textbox & have a macro that will make a specific size.
Thanks again!