Paste special values

[Tim]

Hello All,
Can someone help me with code to:
pasteSpecial>Values>transpose

I tried recording, but when I run the macro, I get an
error.

I would ultimayely like to assign ctrl+"a" as my
function. I copied a few cells, then recorded as I
performed the paste......transpose. Here is the
resulting code.

Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone,
SkipBlanks:=False _
, Transpose:=True

Any Ideas Thanks

 

[Greg Koppel]

Here are several PasteSpecial macros. They are used by making the selection
and copying then choose the desination range and run the macro.

Sub SpecPasteTransVal()
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=True
End Sub
Sub SpecPasteVal()
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub
Sub SpecPasteNoBlanks()
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=True, Transpose:=False
End Sub

HTH, Greg