Beste mede forumleden,
Omdat ik het bestand zo klein mogelijk wil houden, importeer en exporteer ik de module bij het openen/sluiten van het bestand. Nu wil ik bij before_close de volgende code uitvoeren maar hij geeft dan een fout melding...
"Fout 9 Tijdens uitvoering:"
"Het subscript valt buiten het bereik"
Vervolgens verwijst deze naar het 'If ThisWorkbook.VBProject.VBComponents("ClassModule") Is Nothing Then' Statement.
Iemand enig idee?
Alvast bedankt...
Gr,
dprod
Omdat ik het bestand zo klein mogelijk wil houden, importeer en exporteer ik de module bij het openen/sluiten van het bestand. Nu wil ik bij before_close de volgende code uitvoeren maar hij geeft dan een fout melding...
"Fout 9 Tijdens uitvoering:"
"Het subscript valt buiten het bereik"
Vervolgens verwijst deze naar het 'If ThisWorkbook.VBProject.VBComponents("ClassModule") Is Nothing Then' Statement.
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ThisWorkbook.VBProject.VBComponents("ClassModule") Is Nothing Then
Exit Sub
Else
ShutdownFileSystem
End If
End Sub
Iemand enig idee?
Alvast bedankt...
Gr,
dprod