Hi,

Am Tue, 4 Mar 2014 14:50:21 -0800 (PST) schrieb
:

How would I amend the code to paste the result to the same location in a seperate worksheet names "Lists" ?

try:

Sub Concatenate()
Dim LRow As Long

LRow = Sheets("SquadLists Import").Cells(Rows.Count, 1).End(xlUp).Row

With Sheets("Lists")
.Columns("A").ClearContents
With .Range("A2:A" & LRow)
.Formula = "='Squadlists Import'!A2&"" ""&'Squadlists
Import'!B2"
.Value = .Value
End With
End With

End Sub


Regards
Claus B.
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2