PDA

View Full Version : [SOLVED] Comments transfer to cells



Erays
09-30-2005, 08:55 PM
Is there a formula or macro that will take the comments from ten cells and put then word wrap and put them in a cell where they can be prented along with the rest of the sheet?

Jacob Hilderbrand
09-30-2005, 09:45 PM
Try this:




Option Explicit

Sub Macro1()
Dim Cel As Range
Dim MyRange As Range
Set MyRange = Range("A1:A10")
Range("B1").Value = ""
On Error Resume Next
For Each Cel In MyRange
Range("B1").Value = Range("B1").Value & ", " & Cel.Comment.Text
Next
On Error GoTo 0
Range("B1").Value = Mid(Range("B1").Text, 3, Len(Range("B1").Text))
Range("B1").WrapText = TrueSet Cel = Nothing
Set MyRange = Nothing
End Sub

Erays
10-01-2005, 06:30 AM
Thank you very much Works great!