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.

Maybe...

Option Explicit
Sub testme()

On Error Resume Next
ActiveCell.PasteSpecial Transpose:=True
If Err.Number <> 0 Then
MsgBox "Something bad happened!"
Err.Clear
End If
On Error GoTo 0

End Sub

Lots of things can go wrong--nothing currently copied, the paste won't fit, ...

So I just let it fail and issue a warning.



Victoria @ WB wrote:
>
> 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.

--

Dave Peterson

It worked. Thanks.

"Dave Peterson" wrote:

> Maybe...
>
> Option Explicit
> Sub testme()
>
> On Error Resume Next
> ActiveCell.PasteSpecial Transpose:=True
> If Err.Number <> 0 Then
> MsgBox "Something bad happened!"
> Err.Clear
> End If
> On Error GoTo 0
>
> End Sub
>
> Lots of things can go wrong--nothing currently copied, the paste won't fit, ...
>
> So I just let it fail and issue a warning.

You're welcome.

Victoria @ WB wrote:
>
> It worked. Thanks.
>
> "Dave Peterson" wrote:
>
> > Maybe...
> >
> > Option Explicit
> > Sub testme()
> >
> > On Error Resume Next
> > ActiveCell.PasteSpecial Transpose:=True
> > If Err.Number <> 0 Then
> > MsgBox "Something bad happened!"
> > Err.Clear
> > End If
> > On Error GoTo 0
> >
> > End Sub
> >
> > Lots of things can go wrong--nothing currently copied, the paste won't fit, ...
> >
> > So I just let it fail and issue a warning.

--

Dave Peterson