For pasting all in a single column one set below the previous:

Dim rng1 as Range
Dim rng as Range
Dim i as Long
set rng1 = worksheets("Refresh").Range("D1")
for i = 1 to 25
set rng = Worksheets("Data").Range("QU" & I)
rng.copy
rng1.PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, Transpose:=True
set rng1 = Worksheets("Refresh:").Cells(rows.count,1).end(xlu p)(2)
Next i

For pasting in adjacent Columns:

Dim rng1 as Range
Dim rng as Range
Dim i as Long
set rng1 = worksheets("Refresh").Range("D1")
for i = 1 to 25
set rng = Worksheets("Data").Range("QU" & I)
rng.copy
rng1.PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, Transpose:=True
set rng1 = rng1.offset(0,1)
Next i

--
Regards,
Tom Ogilvy

..
"Carmen A" wrote in message
...

First, thanks for the speedy reply...

A field name is a series of cells that are bound by a name

e.g.
=Data!$B$506:$F$506 (=Qu1) i.e. Insert / name where field names are
defined (perhaps I'm using the wrong term)

anyway, could you elaborate a bit more on what your example is supposed
to achieve.


Thanks again
Carmen



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!