Paste Special Transpose

Is there an easy way to combine the "Paste Link" and "Transpose" features of
the Past Special command?

For example, if

A1 = 100
A2 = 200
A3 = 300

in one command (or macro, setkey, etc) I'd like to past into cells B1:D1 the
following:

B1 = $A$1
C1 = $A$2
D1 = $A$3

Thanks.

Range("B1:D1").formula = "=OFFSET($A$1,COLUMN()-1,0)"
Range(A1:A3").copy
Range("B1:D1").Pastespecial xlFormats

might be a work around.
--
Regards,
Tom Ogilvy

"Brian" <Brian@discussions.microsoft.com> wrote in message
news:1666400D-78B2-467C-AAE7-9522A72545F5@microsoft.com...
> Is there an easy way to combine the "Paste Link" and "Transpose" features
of
> the Past Special command?
>
> For example, if
>
> A1 = 100
> A2 = 200
> A3 = 300
>
> in one command (or macro, setkey, etc) I'd like to past into cells B1:D1
the
> following:
>
> B1 = $A$1
> C1 = $A$2
> D1 = $A$3
>
> Thanks.