Give this macro a try; it is a little more compact than the one posted on
Debra's website and it operates slightly differently also (no error checking
is required with it)...
Sub ShowCommentsNextCell()
Dim C As Comment
If ActiveSheet.Comments.Count 0 Then
Application.ScreenUpdating = False
For Each C In ActiveSheet.Comments
With C.Parent.Offset(, 1)
If .Value = "" Then .Value = C.Text
End With
Next
Application.ScreenUpdating = True
End If
End Sub
By the way, you should always copy/paste code from newsgroups and/or
websites rather than typing them into the
VB code windows (as your original
post indicated you did).
--
Rick (MVP - Excel)
"Still Learning" <Still
wrote in message
...
No it is not. I'm assuming that the macro doesn't need anything typed
into
it (ie ranges (a1:b4) or sheet names or anythng).
Thanks for trying to help.
PS, is there somewhere that lists what these comands do? (as I said, I'm
still learning)
"Joshua Fandango" wrote:
Community Message Not Available