I have a function that I use to send a string to the windows clipboard: Sub TextToClipboard(ByVal Text As String) With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") 'FM20.dll (Micr...