Vba Si Blocca La Chiusura Di Word

[luca1]

le ho provate tutte ( loop if chiate funzioni ) ma non risco
grazie a tutti
spero mi potrete aiutare

SUB auto_open()


sub stampa() SI BLOCCA QUA E NON VA AVANTI RIMANENDO TUTTO APERTO

sub uscita()
end sub



sub stampa()

With ActiveDocument.MailMerge
.Destination = wdSendToPrinter
.SuppressBlankLines = True
With .DataSource
.FirstRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
.LastRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
End With

.Execute PAUSE:="FALSE"

End With
end sub

sub uscitA ()
COMANDI PER CHIUSURA
END SUB