全シート

全シートに対して処理を実行

本文sub 全シートに対して処理を実行()

dim 全シートas worksheet

for each 全シート in worksheets

全シート.tab.colorindex=xlcolorindexnone
next

end sub