No, I missed the transpose:=true, I saw it as false. Must have read too
fast.

--
Regards,
Tom Ogilvy

"Don Guillett" wrote in message
...
Tom,
Will that do the transpose?

--
Don Guillett
SalesAid Software

"Tom Ogilvy" wrote in message
...
or even simpler:

Sheets("mntn").range("F14:F25").Copy _
Destination:=Sheets("mon").Range("Cn")

--
Regards,
Tom Ogilvy


"Don Guillett" wrote in message
...
When you say "independent of cell". Do you mean the source cell or the
destination cell? How do you want it to be independent? By asking for
the
range, selecting it, or what.
BTW. You can remove selections for better and faster code.

Sheets("mntn").range("F14:F25").Copy
Sheets("mon").Range("Cn").PasteSpecial Paste:=xlPasteAll, _
Operation:=xlNone,SkipBlanks:=False, _
Transpose:=True Application.CutCopyMode = False



--
Don Guillett
SalesAid Software

"Lolly" wrote in message
...
This is simple macro
I want to create a loop.Write now if I transpose the data it's range
related. I want to make it independent of cell.


Sheets("mntn"). Select
'Range("F14:F25").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("mon").Select
Range("Cn").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False

Any help would be appreciated
--
Kittie