Und ansonsten Bernd,

schaltet man die Bildschirmaktualisierung usw. noch ab (Bei Array nicht notwendig):

Sub Beschleunigen()
 With Application
   .ScreenUpdating = False
   .EnableEvents = False
   .Calculation = xlCalculationManual
 End With
 
 'Code....
 
 With Application
    .ScreenUpdating = True
    .EnableEvents = True
    .Calculation = xlCalculationAutomatic
 End With
End Sub

VG KH