Place a button and attach this code to it:

Sub Transpose()
Selection.PasteSpecial Paste:=xlAll, _
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
End Sub

--
Regards,
Tom Ogilvy

"Rey A." wrote in message
...
To all gurus:

I have a repetitive task wherein I execute "Paste Special", "Transpose",
"OK" respectively after copying cells. Can someone show me how I can create
a button for this sequence of keystrokes.

Appreciate any help.