VBA, Excel 2007, foutcode 381 tijdens uitvoering

[jackfish]

Ik gebruik nu, zonder enig probleem, het afgelopen jaar een excel bestand met VBA-code. Vandaag krijg ik ineens de foutmelding 381 tijdens uitvoering.: Kan de eigenschap list niet verkrijgen. Ongeldige index voor eigenschappenmatrix.

Aan de code is niets veranderd. Bij de foutopsporing wordt Userform4.Show geel gearceerd.

Sub Woensdag()
    If Weekday(Date) = vbWednesday Then
        UserForm4.Show
    Else
        Call Donderdag
    End If
End Sub

Wie weet hoe deze foutmelding te duiden is (het liefst te verhelpen natuurlijk )

 

[edmoor]

Is UserForm4 er nog wel? Plaats anders het betreffende document even.

 

[jackfish]

Ik zie net dat een collega een wijziging heeft aangebracht in de aanwezigheidslijst waardoor onderstaande code vastliep. Wijziging ongedaan gemaakt en het tabblad weer op hidden gezet.

Dim i As Long, h As Long, j As Integer

For i = 0 To WorksheetFunction.CountA(Sheets("PRESENT").Range("G6:G55")) - 1
    If ListBox1.Selected(i) Then j = j + 1

Next i
If j = 0 Then MsgBox "Selecteer de aanwezige collega's .... Gebruik de muis of de pijltjestoetsen met spatiebalk.", vbOKOnly, "Selectie": Exit Sub
ActiveCell.ClearContents
For h = 0 To WorksheetFunction.CountA(Sheets("PRESENT").Range("G6:G55")) - 1
    If ListBox1.Selected(h) = True Then
        ActiveCell = IIf(ActiveCell = "", ListBox1.List(h, 0), ActiveCell & " " & ListBox1.List(h, 0))
    End If

Dank voor het aanbod om mee te kijken!