Copy cell value to clipboard

Hi all

I need a VBA to caopy the selected cell value toclipboad so as I can paste into MS word or other non-excel document.

Can any one help me to do so..

Thank you in advance
Ahmed

Bump no response

Hi Axmed.cm
Have a look at this link: http://www.ozgrid.com/forum/showthread.php?t=27189

Option Explicit 
 
Sub Excel_to_Word() 
    Dim appWord As Word.Application 
     
    Set appWord = New Word.Application 
     
    appWord.Visible = True 
     
    Range("A1:A20").Copy 
     
    appWord.Documents.Add.Content.Paste 
     
End Sub

Dear Sintek
Thank you for your respond

I tired but is encounters this error

Thanks

Try changing appword to msword or wordapp

https://www.mrexcel.com/forum/excel-...xcel-word.html

Hi,

You might use code like this

Public Sub copyCellValueToClipboard()

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

End Sub

Thank you dear

Working well
"SOLVED"