Hi all :-)

I us CopyRangeFromMultiWorksheets from RonDeBruin and have
Fill in the range like this
Set CopyRng = sh.Range("A23,A24,A25"), on DestSh it fill inn
a1,a2,a3, next a4,a5,a6 son on, is it posible to transpose
to a1,b1,c1


With DestSh.Cells(Last + 1, "A")
.PasteSpecial.transpose = true <----------have tryd
to put in, but get error
.PasteSpecial xlPasteValues
'.PasteSpecial xlPasteFormats
Application.CutCopyMode = False
End With


can somone help me with this.

Thanks


Yngve

Yngve expressed precisely :
Hi all :-)

I us CopyRangeFromMultiWorksheets from RonDeBruin and have
Fill in the range like this
Set CopyRng = sh.Range("A23,A24,A25"), on DestSh it fill inn
a1,a2,a3, next a4,a5,a6 son on, is it posible to transpose
to a1,b1,c1


With DestSh.Cells(Last + 1, "A")
.PasteSpecial.transpose = true <----------have tryd
to put in, but get error
.PasteSpecial xlPasteValues
'.PasteSpecial xlPasteFormats
Application.CutCopyMode = False
End With


can somone help me with this.

Thanks


Yngve

Transpose is a worksheet function and so you should look that up to
learn more about how it works and how to use it.

In code, you use it like this:

rngTarget = WorksheetFunction.Transpose(rngSource)

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc