Excel slaat vast na wijziging in macro

[Koezen]

Hallo,

Ik heb een werkblad met onderstaande code.
Sinds ik een aantal aanpassingen heb gedaan in de plekken waar informatie vandaan gehaald moet worden, slaat Excel steeds vast.
Kan iemand zien of iets structureel fout is aan dit stukje code?
Het bestand anonimiseren is nogal lastig, vandaar dat ik die er nog niet bij heb gedaan.

Sub WerkbonOpslaan()
    ActiveSheet.Shapes.Range(Array("Button 420")).Select
    Selection.Delete
    MsgBox "Klik in het volgende dialoogvenster op Ja", vbOKOnly
    Dim Naam As String
    Dim Pad As String
    Dim Bestandsnaam As String
    Dim MsgString As String
    Dim Monteur As String
            Monteur = Sheets("WERKBON").Range("B7").Value
            Naam = "Werkbon " & Sheets("BON").Range("F2").Value & " " & Format(Now, "yyyymmdd hh_mm")
            Pad = "Q:\HFE\S&O\FGO+\Bonnen\" & Monteur & "\"
            Bestandsnaam = Pad & Naam
            MsgString = Naam
            With CreateObject("Scripting.FileSystemObject")
            If Not .FolderExists(Pad) Then .CreateFolder Pad
    End With
            ActiveWorkbook.SaveAs Pad & Naam, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
            Application.DisplayAlerts = False
      MsgBox "Als je op ok klikt zal het bestand sluiten. Open het bestand [" & MsgString & ".xlsx] daarna in de map [" & Pad & "]."
      Sheets("BON").Visible = xlVeryHidden
        ActiveWorkbook.Close True
 End Sub

 

[lam201]

Koezen,

Nee. de code geeft geen problemen bij mij.
let wel op dat de werkbladen "Bon" en "Werkbon" aanwezig zijn.
en er wordt verwezen naar een shape met de naam "Button 420".

wat bedoel je precies met "slaat Excel vast"?
krijg je een foutmelding?

Misschien dat iemand anders iets kan vinden.
Anders toch maar een poging wagen met annonimiseren

Lambert

 

[Koezen]

Hoi Lambert,

Het is ook niet elke keer dat Excel vast slaat.
Ik ga proberen een anoniem bestand te maken.
Kan ff duren.....

 

[roeljongman]

Begin eens met door de macrocode heen te stappen met F8 vanuit de vba editor, dan zal snel duidelijk zijn op welke regel de ellende ontstaat.
Mijn eerste indruk is dat op het eind bij de ActiveWorkbook.Saveas iets fout kan gaan bijv omdat je bestandspad niet toegankelijk is. Haal dus die application.displayevents = false eens uit de code. Die onderdrukt systeem meldingen dus je ziet nu niet of er iets fout gaat daar en stel die meldt "bestand kan niet opslaan" en jij geeft daarna nog een opdracht om het active workbook te sluiten én op te slaan
loop je zomaar de kans dat VBA 2 opdrachten tot opslaan laat lopen en excel dan vastloopt.

 

[Koezen]

Hoi Roel,

Dat is een goeie suggestie. Ga ik proberen!

 

[Koezen]

Heren, dank voor de suggesties.
Ik heb de optie application.displayevents = false eruit gehaald en daarna is de fout niet meer voorgekomen.
Ik zal de vraag als opgelost markeren.

 

[snb]

Mijn Excel bevat geen:

application.displayevents