A macro might be an easier solution.
This one line will do it for you:

ActiveCell.Formula = Range("E7").Comment.Text



On May 6, 3:26*pm, MFS wrote:
Hi, is there any solution to extract the text written in a comment box to a
specific cell

I tried the following but this message “#name?” appeared

Select the cell which has the comment
Go to InsertName (Define Name in formulas tap) a window will appear
Now insert the following formula in the "Refers to" box -
get.object(12,"comment 1") and give it a name, say trial
In any cell (say A5) where you want to insert the contents of the comments
box, say =trial.

Please check where is my mistake, note that I have Office 2007.