参考元：【VBA】シート名を検索する【完全一致と部分一致の検索ができます】
https://daitaideit.com/vba-sheet-search-name/
シート名が一致したらシート名を色付け
「Sheet2」を検索して、一致したシートを色付けするという感じです。
Sub TEST3()
For i = 1 To Sheets.Count
'シート名が、「Sheet2」の場合
If Sheets(i).Name = "Sheet2" Then
'シートを塗りつぶし
Sheets(i).Tab.Color = RGB(255, 255, 0)
End If
Next
End Sub
「For Each」を使う場合は、次のようになります。
Sub TEST4()
Dim A
For Each A In Sheets
'シート名が、「Sheet2」の場合
If A.Name = "Sheet2" Then
'シートを塗りつぶし
A.Tab.Color = RGB(255, 255, 0)
End If
Next
End Sub
