【VBA】シート名を検索する【完全一致と部分一致の検索ができます】

参考元：【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