Probabilmente il tuo codice funzionerebbe ugualmente veloce se tu impostassi le opportune proprietà che influsicono sull'aggiornamento grafico del foglio. Ad esempio:
codice:objExcel.Application.Interactive = False objExcel.Application.ScreenUpdating = False objExcel.Application.DisplayAlerts = False objExcel.Calculation = xlCalculationManual objExcel.CalculateBeforeSave = True