This should do the trick

Sub CopyFormatComents()
'Assumes that range has been copied
If Application.CutCopyMode = xlCopy Then
Selection.PasteSpecial Paste:=xlPasteComments
Selection.PasteSpecial Paste:=xlFormats
Application.CutCopyMode = False
Else: MsgBox "You must copy a cell First"
End If

End Sub

Regards
Peter
-----Original Message-----
Can I copy a cell (via Ctl-C) and then click on a
destination, whether a
single cell or multiple cells - then activate a macro
that will copy the
comments, the border and the color (from the source) to
the destination
cell(s) without disturbing the value that is already in
the destination
cell(s)?
Thks in advance...


.