Копирование нескольких строк в буфер обмена

Question

Мне нравится копировать несколько строковых объектов в буфер обмена MS Excel, но, похоже, я не могу это сделать. То, что я получаю, это последнее, что копируется. Надеюсь получить помощь здесь. Я скопировал приведенные ниже коды с веб-сайта и внес свои собственные изменения, но не смог заставить его работать.

Sub CopyTextToClipboard()

Dim obj As New DataObject
Dim txt1, txt2, txt3 As String

  txt1 = "This was copied to the clipboard using VBA! (Text 1)"
  obj.SetText txt1
  obj.PutInClipboard

  txt2 = "This was copied to the clipboard using VBA! (Text 2)"
  obj.SetText txt2
  obj.PutInClipboard

  txt3 = "This was copied to the clipboard using VBA! (Text 3)"
  obj.SetText txt3
  obj.PutInClipboard

End Sub

Единственная строка, которая была скопирована в буфер обмена, была txt3. Я считаю, что все они были скопированы, но записаны последней строкой. Я хотел бы спросить, как я могу скопировать несколько строк в буфер обмена, например, как я могу сделать это вручную. Спасибо.

Примечание. Если это поможет, я использую Windows10 и Excel 2016.