After using :- Cells(1,1).Comment.Text Text:=discription$

where discription$="abcdefghijklmnopqrstuvwzyz"

Who do i resiz the comment box using code, such that the box will show the
complete comment.

I have tried to record a macro but this does not work.

Thanks
Sunil