Quote Originariamente inviata da genespos Visualizza il messaggio
Il suggerimento di evitare il select è ottimo!
In ogni caso, potresti anche provare ad usare

codice:
Application.ScreenUpdating = False
ok ok scusami ho letto in ritardo
ho modificato cosi seguendo indicazioni dal web.. pare funzionare

codice:
Sub stampa()
'
' stampa Macro
'

'

       
        Application.ScreenUpdating = False
        
If Application.Dialogs(xlDialogPrinterSetup).Show Then
     Sheets(Array("INTESTAZIONE", "PRIMA PAGINA", "DATI STAMPA", "PESO RILEVATO", _
        "MASSA CORP", "BMI", "PROIEZ PESO", "WHRT", "RAPP E COSTITUZIONE", "SOMATOMETRIA")).PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    
End If

Application.ScreenUpdating = True

End Sub