Sub CleanS()
    Selection = Application.Clean(Selection)
End Sub

Sub the_priest_copy()
    Dim DtO As New MSForms.DataObject, S, outS(), i&, k&, outA$
    Range("A1").Value = Application.Clean(Range("A1").Value)    ' оставили только печатные символы
    DtO.SetText Range("A1").Value
    DtO.PutInClipboard 

    DtO.GetFromClipboard
    S = DtO.GetText
    k = 1
    ReDim outS(1 To LenB(S))
    For i = 1 To LenB(S)
        outS(i) = AscB(MidB(S, i, 1))
    Next
    outA = outA & vbCrLf & "Символы в буфере: " & vbCrLf & Join(outS, "-")
    ' чистим буфер
    If InStr(S, Chr(13) & Chr(10)) > 0 Then S = Replace(DtO.GetText, Chr(13) & Chr(10), "")
    k = 1
    ReDim outS(1 To LenB(S))
    For i = 1 To LenB(S)
        outS(i) = AscB(MidB(S, i, 1))
    Next
    outA = outA & vbCrLf & "Символы в буфере после очистки: " & vbCrLf & Join(outS, "-")
    MsgBox outA
End Sub

Sub the_priest_copy()
With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    .SetText Range("A1").Value
    .PutInClipboard
End With
End Sub

Sub the_priest_copy() 
With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") 
.SetText ActiveCell.Value 
.PutInClipboard 
End With 
End Sub