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