Sub Foreach_Name()
    Dim Sh As Worksheet
    For Each Sh In Worksheets
        If Sh.Index = 3 Then
            Sh.Tab.Color = vbRed
        End If
    Next
End Sub