Sub TestMacro()
    Dim objClip As DataObject
'   Microsoft Forms 2.0 Object Library
'   needs to be selected as a Reference (on the VBA Tools menu)
    Dim strTmp As String
    Set objClip = New DataObject
    strTmp = Replace(ActiveCell.Value, Chr(10), vbCrLf)
    objClip.SetText strTmp
    objClip.PutInClipboard
    Set objClip = Nothing
End Sub