Help with reading comments.
Try adding "On Error Resume Next" to your code that's
getting runtime error 91. If you are using a loop you
need to declare an array variable to store multiple
comments. Instead of assigning the comments to an array I
would just assign them to another cell. See example below.
For i = 1 To ActiveSheet.UsedRange.Rows.Count
If Cells(i, "A").Comment.Text < "" Then Cells(i, "B") =
Cells(i, "A").Comment.Text
Next
Hope this helps... Al
-----Original Message-----
Hi, I need some help with comments. Specifically, I'm
trying to write a macro that needs to test to see if a
cell has a comment, and if so, store the contents of that
comment in a string variable. I think I can figure the
rest out on my own, but every time I try something like:
myComment = Range(myCurrentCell).Comment.Text
I get an runtime error 91. It's very annoying. I've
noticed that
myComment = Range("A1").Comment.Text
works just fine, it just doesn't like the variable in the
range. MyCurrentCell is in a For/Next Loop and get's its'
value from the line:
myCurrentCell = c.Address([False], [False])
I've used similar things in all sorts of other macros,
so... I'm stumped.
Thanks for your help.
.
|