Hi all,
I have this code..
Sub COPY_Text()
With Sheets("sheet1")
For MY_ROWS = 1 To 54
If .Range("C" & MY_ROWS).Font.Underline = xlUnderlineStyleSingle Then
MY_TEXT = MY_TEXT & .Range("C" & MY_ROWS).Value & ", "
End If
Next MY_ROWS
If MY_TEXT <> ""...