Sub Add_Copied_Text()
Dim Cell As Range
Dim moretext As String
Dim rngEdit As Range
'select a cell with text
Set currentSelection = Application.ActiveCell
currentSelection.Name = "oldrange"
moretext = Range("oldrange").Value
'select a cell to satrt the fill
Set rngEdit = Range("D3")
rngEdit.Value = rngEdit.Value & " " & Range("oldrange").Value
End Sub


Gord Dibben MS Excel MVP

On Sat, 11 Apr 2009 18:50:46 -0700, jay dean wrote:

Hello -

Each cell in Range ("A5:A80") contains words or phrases.
I am trying to create a sentence in Range ("D3") using cells from Range
("A5:A80").
I need a macro that will copy the contents of any cell that I select in
Range ("A5:A80") and paste it in Range ("D3"). If Range("D3") already
contains some words, it will leave a space at the end of those words and
concatenate the cell content it copied in range ("A5:A80").

Any help would be appreciated. Thanks!

Jay Dean



*** Sent via Developersdex http://www.developersdex.com ***