ben biryerden buldum kodu arayan arkadaşa yardımcı olabilir. denedim çalışıyor fakat baya bir zaman alıyor.

Sub GroupSheetsByColor()

Dim lCount As Long, lCounted As Long

Dim lShtLast As Long

lShtLast = Sheets.Count

For lCount = 1 To lShtLast

For lCounted = lCount To lShtLast

If Sheets(lCounted).Tab.ColorIndex = Sheets(lCount).Tab.ColorIndex Then

Sheets(lCounted).Move Before:=Sheets(lCount)

End If

Next lCounted

Next lCount

end sub