Sub シートの色を変更する() ActiveSheet.Tab.Color = RGB(255, 0, 0) End Sub
Sub シートの色を変更する_シート名を指定する() Worksheets("Sheet1").Tab.Color = RGB(255, 0, 0) End Sub