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
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2