Compileerfout: Sub of function niet gedefinieerd

[looze]

Ik probeer een macro te activeren, maar ik krijg altijd een foutbericht op de eerste regel (zoals in het onderwerp van dit bericht). Nochtans heb ik gelijkaardige macro's die wel goed werken.

Ik plak de code hier onder:

Sub Bestanden_inlezen()

Windows("Verzamelbestand bestuurders").Activate
Sheet("VZW").Activate

For n = 4 To 50
    
    If Not Cells(n, 2).Value = 0 Then
    
    ChDir "M:\02_MEDEWERKERS\WILLIAM\ingevulde formulieren"

    Workbooks.Open Filename:=plaats & ActiveSheet.Cells(n, 1).Value, UpdateLinks:=0
        
    Windows("Verzamelbestand bestuurders").Activate
    Sheet("VZW").Activate
    
    ActiveSheet.Columns(n).Select
        
    Selection.Replace What:="bevraging leden RvB.xlsx", Replacement:=ActiveSheet.Cells(n, 1).Value, LookAt _
    :=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
        
    ActiveWindow.ActivatePrevious
    ActiveWindow.Close
    
        
    End If

Next n
        
Range("A1").Select
    
End Sub

Heeft er iemand een idee om dit op te lossen?

 

[spaarie]

Probeer eens Sheets("VZW").Activate..

Staat het bestand 'Verzamelbestand bestuurders' uberhaupt open?
Zo niet, kan je hem ook niet activeren. Gebruik de Workbooks.Open function.
Zo wel, probeer eens met

Application.Goto Workbooks("Verzamelbestand bestuurders").Sheets("VZW").Cells(1)

het bestand te activeren.

Probeer ook zoveel mogelijk Activate en Select te vermijden in VBA...

 

[looze]

Met de aanpassing naar Sheets("VZW").Activate ben ik verder geholpen. Daarmee komt de macro tot bij een volgende fout maar die haal ik er zelf wel uit.
Bedankt!