This worked and I now have it as an excel add-in for all my excel
workbooks!
Thank you so much!
Heather
On Jun 29, 1:22 am, Dilip Pandey wrote:
> Hi Heather,
>
> Check the below link:-
>
> http://chandoo.org/wp/2009/09/03/get-cell-comments/
>
> Best Regards,
> DILIPandey
>
> On 6/29/11, Heath
*Function GetComment(c As Range)
GetComment = c.Comment.Text
End Function
*
On Wed, Jun 29, 2011 at 11:52 AM, Vasant wrote:
> Try this.
>
> Sub Test()
> Dim Rng as range
> Set Rng = ActiveSheet.Range("A1")
> Debug.Print Rng.Comment.Text
> End sub
>
> if you want to use it as a UDF
>
> Function G
Try this.
Sub Test()
Dim Rng as range
Set Rng = ActiveSheet.Range("A1")
Debug.Print Rng.Comment.Text
End sub
if you want to use it as a UDF
Function GetComment(Rng as range)
GetComment= Rng.Comment.Text
End sub
On Wed, Jun 29, 2011 at 9:31 AM, Heather wrote:
> I would like to extract comments
Dear Heather,
Please try it...
Function extract_text(abc As Range)
Dim i As String
i = Application.WorksheetFunction.Clean(abc.Comment.Text)
extract_text = VBA.Right(i, Len(i) - InStr(1, i, ":"))
End Function
--
Thanks & regards,
Noorain Ansari
On Wed, Jun 29, 2011 at 9:31 AM, Heat
Hi Heather,
Check the below link:-
http://chandoo.org/wp/2009/09/03/get-cell-comments/
Best Regards,
DILIPandey
On 6/29/11, Heather wrote:
> I would like to extract comments and paste it next to the cell.
>
> For example:
> The comment in cell A1 would be pasted in B1
> The comment in cell A2
