Comment to clipboard

[Paul B]

Need a macro to get the comment, if there is one, from the active cell and put the text in the clipboard, is this possible? This will be used with Excel 2003. Thanks

 

[JoeMo]

Don't know what clipboard you want to use - Excel or Windows.
This will put the comment on Excel Clipboard.

Sub CommentToExcelClipboard()
Dim T As String
If Not ActiveCell.Comment Is Nothing Then
    T = ActiveCell.Comment.Text
    With Cells(1, Columns.Count)
        .Value = T
        .Copy
        'Comment is now on the Excel clipboard. Next line enters it in
        'cell M1 - change to suit
        Range("M1").PasteSpecial xlPasteValues 'test it - remove or change to suit
        .ClearContents
    End With
End If
End Sub

 

[Paul B]

JoeMo, thanks I got what I needed from that

 

[JoeMo]

JoeMo, thanks I got what I needed from that

You are welcome - thanks for the reply.