Beste SoftAid,
Super, ziet er heel goed uit. Onderstaande macro heb ik nu aangemaakt, maar ik ga deze dan nog verbeteren met die van u. Dit komt overeen met uw macro, enkel dan dat ik hier verschillende bladnamen dan kan intypen. Enkel zou ik dan nog een aanpassing bovenaan "For blad = 1 To 3" moeten zien te vinden die niet van blad 1 t/m blad 3, maar bv blad 1 en blad 2.
Sub Startpagina()
'
' Startpagina Macro
'
'
For blad = 1 To 3
Sheets("Adres1").Select
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
If Not Application.Intersect(Sh.TopLeftCell, Range("A3:H33")) Is Nothing Then
If Sh.Type = msoPicture Then Sh.Delete
End If
Next Sh
Sheets("Adres2").Select
For Each Sh In ActiveSheet.Shapes
If Not Application.Intersect(Sh.TopLeftCell, Range("A3:H33")) Is Nothing Then
If Sh.Type = msoPicture Then Sh.Delete
End If
Next Sh
Next blad
Sheets("Adres3").Select
For Each Sh In ActiveSheet.Shapes
If Not Application.Intersect(Sh.TopLeftCell, Range("A3:BE33")) Is Nothing Then
If Sh.Type = msoPicture Then Sh.Delete
End If
Next Sh
Sheets("Startpagina").Select
End Sub