マクロ - 複数のシート上の内容をクリアする

Question

特定の単語が現れると、特定のセルの内容を削除するために使用するマクロがあります。現在、私はこのワークブックに1枚のシートをセットしました。

しかし、私はそれが複数のシートを処理するようにしたいと思います。

は、これは私がこれまで持っているものです。

Sub CC() 
Dim rCell As Range 

For Each rCell In Sheet1.Range("O9,O11,O13,O15,O17,O19,O21,O23,O25,O27,O29,O31,O33,O35,O37,O39,O41,O43,O45,O47,O49,L10,L12,L14,L16,L18,L20,L22,L24,L26,L28,L30,L32,L34,L36,L38,L40,L42,L44,L46,L48,L50") 
    If InStr(1, rCell.Value, "A") Or InStr(1, rCell.Value, "B") Or InStr(1, rCell.Value, "OK") Or InStr(1, rCell.Value, "C") Then 
     rCell.ClearContents 
    End If 
Next rCell 

Set rCell = Nothing 
Application.OnTime Now + TimeValue("00:00:01"), "CC" 

End Sub 

Answer 1

は、以下を追加します。

Dim rCell As Range 
dim sheet as worksheet 
For Each sheet In ActiveWorkbook.Worksheets 
     For Each rCell In sheet.Range("O9,O11,O13,O15,O17,O19,O21,O23,O25,O27,O29,O31,O33,O35,O37,O39,O41,O43,O45,O47,O49,L10,L12,L14,L16,L18,L20,L22,L24,L26,L28,L30,L32,L34,L36,L38,L40,L42,L44,L46,L48,L50") 
     If InStr(1, rCell.Value, "A") Or InStr(1, rCell.Value, "B") Or InStr(1, rCell.Value, "OK") Or InStr(1, rCell.Value, "C") Then 
     rCell.ClearContents 
     End If 
     Next rCell 
Next 

Set rCell = Nothing 
Application.OnTime Now + TimeValue("00:00:01"), "CC"