Macro to Insert Text Into Cells Having Multiple Lines

Catalin.B · #4 10-14-2011, 10:10 AM

Try this code then... (you need to set a reference to the Microsoft Forms 2.0 Object Library... To add a reference to your VBA project, go to the Tools menu in the VBA editor and choose the References item. In the dialog that appears, scroll down the list until you find the appropriate library )

Code:

Sub paste()
Dim DataObj As New MSForms.DataObject
    Dim S, T As String
    DataObj.GetFromClipboard
    T = ActiveCell.Value
    
    S = DataObj.GetText
   
ActiveCell.Value = T & " " & S
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to Insert a Clear, Blank page without Lines and Numbers in a Pleading Document	Dirigo	Word	5	09-30-2011 08:08 AM
Multiple VLOOKUP's checking multiple Cells	OTPM	Excel	11	05-23-2011 11:18 AM
filling multiple cells whislt using Filter	VinceO	Excel	1	05-09-2011 06:38 AM
How to organize and insert blank cells between a huge number of data?	tareq	Excel	12	09-29-2010 02:12 PM
Horizontal lines won't insert into full margins set in a doc.	rec	Outlook	2	06-14-2010 09:47 AM