VBA code to perform an action on all worksheets and workbooks with unknown names
<p>I have many reports that all have subtotals in them which I do not need. They are all on a line with a unique number then "Total"(bolded). I am trying to create code that will apply to all of my workbooks as I create new ones that will find and delete any row that has the "Total"(bold) text in it. I know how to apply it to specific workbooks/worksheets with names that I know but do not know how to get it to apply to any worksheet with any name as they come up. </p>

<pre><code>    Sub Find_Delete_Total()
    Dim Total_Row As Long
    Dim X As Long

    For Each Ws In ActiveWorkbook.Worksheets


     With Ws
            With Application.FindFormat.Font
                .FontStyle = "Bold"
                .Subscript = False
                .TintAndShade = 0
            End With
            For X = 1 To 10000



        Total_Row = Cells.Find(What:="Total", _
                After:=Range("A1"), _
                LookAt:=xlPart, _
                LookIn:=xlFormulas, _
                SearchOrder:=xlByRows, _
                SearchDirection:=xlPrevious, _
                MatchCase:=False).Select.Row
                    Selection.Delete Shift:=xlUp

            Next X
        End With
    Next Ws

End Sub
</code></pre>