Ritengo quindi che sul tuo foglio ci siano formule o eventi che rallentano l' esecuzione; prova quindi a inserire in testa e in coda le istruzioni magiche:
- Codice: Seleziona tutto
Sub LPBoh()
Application.Calculation = xlManual '<< Aggiungere
Application.ScreenUpdating = False '<<
Application.EnableEvents = False '<<
'
'qui il resto della macro
'
Application.Calculation = xlCalculationAutomatic '<< Aggiungere
Application.ScreenUpdating = True '<<
Application.EnableEvents = True '<<
Calculate '<<
End Sub
Fai sapere, ciao.