Another Cool Macro
 

S.O.S, help needed badly€¦the following macro:
For Each Worksheet In ActiveWorkbook.Worksheets
i = i + 1
If i < ActiveWorkbook.Worksheets.Count Then
Worksheets(i).Range("M6").Copy
Worksheets(ActiveWorkbook.Worksheets.Count).Cells( i, 1).PasteSpecial
Paste=xlValues
End If
Next

End Sub

will pastes values the last worksheet in the workbook vertically. I am in
severe need of a macro which will paste the values in the last worksheet in a
horizontal manner. I tried incorporating [outplace.range (€œa€� & outrow).
PasteSpecial Paste: = xlValue, Transpose: = True] into it, but it did not
work.

All I want is for the range output to fall horizontally instead of vertically.
Can someone please help?

Another Cool Macro
 

change
Worksheets(ActiveWorkbook.Worksheets.Count).Cells( i, 1).PasteSpecial
Paste:=xlValues

to

Worksheets(ActiveWorkbook.Worksheets.Count).Cells( 1, i).PasteSpecial
Paste:=xlValues


be sure to INCLUDE the colon

;-)

Another Cool Macro
 

SUPA DUPA! I owe you big time, Thanks Again!!

"Jarek Kujawa" wrote:

change
Worksheets(ActiveWorkbook.Worksheets.Count).Cells( i, 1).PasteSpecial
Paste:=xlValues

to

Worksheets(ActiveWorkbook.Worksheets.Count).Cells( 1, i).PasteSpecial
Paste:=xlValues


be sure to INCLUDE the colon

;-)

Another Cool Macro
 

"SUPA DUPA"?
now I need some assistance on this one...
what does it mean?
;-)))

Another Cool Macro
 

thks a lot, Glenn
;-)

="SUPER DUPER"?

does mean much to me, either
;-)

Another Cool Macro
 

On Aug 1, 2:58 pm, Jarek Kujawa wrote:
thks a lot, Glenn
;-)

="SUPER DUPER"?

does mean much to me, either
;-)

Super = great, wonderful
Duper....hmm, guess it rhymes with Super

And 2 words must calculate to twice as Super!