Adapt macro

[Paul]

Hi Guys,

I simply want to adapt this formula to copy across rather than down, I
have changed it to -

Dim rng as Range
set rng = Range(cells(2,1),cells(2,1).End(xlToRight))
rng.offset(0,1).Formula = Cells(2,2).Formula

I'm getting an Application Defined or Object Defined Error on this
code -

rng.offset(0,1).Formula = Cells(2,2).Formula

Any advice would be great!

Thanks
Paul

 

[Claus Busch]

Hi Paul,

Am Tue, 3 May 2011 07:39:31 -0700 (PDT) schrieb Paul:

rng.offset(0,1).Formula = Cells(2,2).Formula

try:
Cells(2, 2).AutoFill Destination:=rng


Regards
Claus Busch