Adapt macro

  • Thread starter Thread starter Paul
  • Start date Start date
P

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
 
Hi Paul,

Am Tue, 3 May 2011 07:39:31 -0700 (PDT) schrieb Paul:
rng.offset(0,1).Formula = Cells(2,2).Formula
Click to expand...

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


Regards
Claus Busch
 
Back
Top