macro - paste special (transpose)
Thx :)
"Gary''s Student" wrote:
Sub Macro1()
Sheets("Sheet1").Select
Rows("1:256").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Rows("1:256").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
End Sub
--
Gary''s Student - gsnu200826
|