alle tabbladen met bepaalde kleur selecteren

[jagea]

Hoe kan ik een werkmap alle tabbladen (=werkbladen) met een bepaalde kleur (bijvoorbeeld rood) selecteren?

Al vast bedankt.

 

[pasan]

Test deze eens, let er op dat er altijd 1 blad over blijft en mocht je alle bladen de zelfde kleur hebben gegeven en je laat deze macro lopen blijft het laatste blad van rechts over.
Het getal 255 staat voor de rode kleur

Sub Tabkleur()
Dim sh As Worksheet

  Application.DisplayAlerts = False
  
 On Error Resume Next
    
For Each sh In ActiveWorkbook.Sheets
If sh.Tab.Color = 255 Then
sh.Delete
End If
Next sh

  Application.DisplayAlerts = True
End Sub

 

[jagea]

heb sh.delete gewijzigd in sh.select (gelukkig heb ik getest met een kopie van de werkmap) maar dan wordt alleen het laatste werkblad met een rood tabblad geselecteerd. Hoe kan ik ze allemaal selecteren?

 

[Warme bakkertje]

Sub GroupTabs()
    For Each sh In Sheets
        If sh.Tab.Color = 255 Then sh.Select Replace:=False
    Next
End Sub

 

[jagea]

Helemaal prima!

Bedankt!!

 

[pasan]

ik ben eigenlijk wel benieuwd wat je dan met de geselecteerde bladen wilt doen