title: Runtime error when using DataObject.PutInClipboard Method
body: <p>I have a macro that runs in my PC. When someone else runs it, it throws the following exception:</p>
  
  <pre><code>"Run-time error '-2147221036 (800401d4)'
  DataObject:PutInClipboard CloseClipboard Failed"
  </code></pre>
  
  <p>Here is my code: </p>
  
  <pre><code>Dim buf As String, FSO As Object
  Dim CB As New DataObject
  
  Set FSO = CreateObject("Scripting.FileSystemObject")
  With FSO.OpenTextFile(sFile, 1)
      buf = .ReadAll
      buf = Replace(buf, ",", Chr(9))
      .Close
  End With
  
  With CB
      .SetText buf
      .PutInClipboard   // Here cause the exception.
  End With
  </code></pre>