Hoe kan ik een macro maken met excel waar bepaald cellen uit alle volgende tabbladen worden gehaald?

Ik heb een macro gemaakt waarbij er een tabblad wordt gemaakt en waarbij hij vervolgens uit de volgende 100 tabbladen bepaalde cellen kopieert. Een gedeelte van de macro:

Sheets(ActiveSheet.Index + 1).Activate
Range("A1:E45").Select
Selection.Copy
Range("A1").Select
ActiveWindow.SmallScroll Down:=-39
Sheets("Totaal Programma").Select
Range("H4").Select
Selection.Insert Shift:=xlDown
Range("A1").Select

Dit stukje wordt 100x herhaald alleen dan wordt Sheets(ActiveSheet.Index + 1).Activate, +2 ,+3 enz...

Ik weet bij voorbaat niet hoeveel tabbladen er nog achter komen, nu zijn er bijvoorbeeld de ene keer 54 tabbladen en de andere keer 74. Excel geeft nu een foutmelding omdat hij niet tot het 100 tabblad kan komen. weet iemand hoe ik dit op kan lossen zonder foutmelding.

dus dat de cellen A1 t/m E1 van alle volgende tabbladen gekopieerd worden in het tabblad "Totaal Programma" zonder foutmeldingen.

Weet jij het antwoord?

/2500

Het beste antwoord

Niet de fraaiste oplossing, maar wel simpel is een OnError statement toevoegen. In een OnError ga je naar een melding en kun je de macro afsluiten. Je doet dan de aanname dat als de fout ontstaat omdat er geen volgend tabblad meer is, dat de macro klaar is.

Stel zelf een vraag

Ben je op zoek naar het antwoord die ene vraag die je misschien al tijden achtervolgt?

/100