Hi
am Anfang des Codes: Application.Calculation = xlCalculationManual
und dann am Ende: Application.Calculation = xlCalculationAutomatic
hier erst mal ohne Fehlerbehandlung