Hi,

Am Fri, 19 Oct 2012 23:05:31 +0200 schrieb Claus Busch:

Set AKO = .Range(Cells(2, 13), Cells(362, 13))
Set BKO = Range(Cells(1, 1), Cells(362, 13))

look for the 2 rows above and change them to:

Set AKO = .Range(.Cells(2, 13), .Cells(362, 13))
Set BKO = .Range(.Cells(1, 1), .Cells(362, 13))


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2