Speicherung einbauen

Sub Test()
Dim Blatt As Worksheet
For Each Blatt In ActiveWorkbook.Worksheets
If Blatt.Tab.ColorIndex = 3 Then
Blatt.Select
Range("C2:C3").Select
Selection.ClearContents
Run "Makro"
End If
Next Blatt
ActiveWorkbook.Save
End Sub