Anonymní profil Matúš – Programujte.com

Ahojte chcel by som sa spýtať ako mám spraviť: Mám vytvorené tlačidlo ktoré slúži na aktualizáciu prepojením kód je nasledovný:

Private Sub CommandButton2_Click()
Dim list As Slide
Dim objekt As Shape

Label1.Caption = "Aktualizujem..."

Application.DisplayAlerts = False

For Each list In ActivePresentation.Slides
    For Each objekt In list.Shapes
        If objekt.Type = msoLinkedOLEObject Then
       
        objekt.LinkFormat.Update
        End If
    Next
Next

Label1.Caption = ""
End Sub

ale ak príde k chybe (napr. niektorý prepojený súbor už neexistuje) tak aby mi to neskončilo program ale aby mi to napríklad do nejakého okna vypísalo že súbor xxxxx sa nenašiel. Neviem ako vytvoriť podmienku že ak príkaz objekt.LinkFormat.Update neprebehne v poriadku aby mi vypísalo chybu. Vedel by niekto poradiť? Ďakujem