Macro for one-click paste special transpose

I would like to write a macro to assign to a toolbar button. I would like it
to Paste_Special Transpose in the active cell.

Seems simple enough, but I keep failing.

Thanks for any help.