Another Cool Macro

[carla 7]

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?


----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/com...dg=microsoft.public.excel.worksheet.functions