Autofill op twee tabbladen geeft foutmelding voor 1 tabblad

[bomseler]

In mijn code wil ik op 2 tabbladen een range vullen. Nu werkt de eerste helft wel maar als ik voor het tweede tabblad de code toevoeg krijg ik een foutmelding.

If MsgBox("Maak voor alle " & x & " bouwnummers tabbladen aan", _
vbOKCancel + vbInformation, "Actie wordt afgebroken") = vbOK Then
Sheets("BNR Overzicht").Range("O12:S12").AutoFill Range("O12:S12").Resize(x)
'Deze regel resized de range met formules op het hoofdblad
Sheets("Optie Overzicht").Range("A2:S2").AutoFill Range("A2:S2").Resize(x)
End If

Hij geeft een foutmelding op deze regel:

Sheets("Optie Overzicht").Range("A2:S2").AutoFill Range("A2:S2").Resize(x)
End If

Kan iemand mij hiermee helpen?

 

[SjonR]

Aangezien je nog geen antwoord hebt, is een voorbeeldbestand misschien handig.

 

[VenA]

De objectenbibliotheek even doornemen kan geen kwaad.

Sheets("Optie Overzicht").Range("A2:S2").AutoFill Sheets("Optie Overzicht").Range("A2:S2").Resize(x)

of

With Sheets("Optie Overzicht")
    .Range("A2:S2").AutoFill .Range("A2:S2").Resize(x)
End With

 

[bomseler]

Het is gelukt nu! Bedankt!