Скопировать первую строку текста в ячейке средствами VBA

[ac1-caesar]

Уважаемые форумчане!

Подскажите пожалуйста, как с помощью VBA выделить (скопировать) первую строку текста в ячейке? Первая строка ограничивается Chr(10).

[IgorGO]

вот процедура, которая закинет в Карман первую строку из txt

Sub FirstStr2ClipBoard(txt)
  With New dataobject
    .SetText Split(txt, Chr(10))(0)
    .PutInClipboard
  End With
End Sub

если в тексте нет Chr(10) - в карман попадет все содержимое
тут показано, как этим пользоваться

Sub Start()
  FirstStr2ClipBoard Cells(1, 1).Value
End Sub

(в Карман попадет 1-я строка из ячейки А1)

теперь в любом доступном месте Ctrl+V - и получаете свои данные.
а чтобы все работало - в редакторе VBA меню Tools / References добавте к списку используемых ссылок MicroSoft Forms 2.0 Object Library