HI All,
I am attempting to test a cell in column A for the word "Total" and if found to hide the row.
I am unclear if I am using the find statement correct. I have not been able to get it to run. 

Sub total_Cell_colA()

Dim myRange As Range
Dim Cell As Range

With Range("A7:A1200")
*** Set myRange = .Offset(0, .Columns.Count + 2)
*** For Each Cell In .Cells
******* If Cell = Selection.Find(What:="Total", LookIn:=xlFormulas) Then Set myRange = Application.Union(myRange, Cell)
**** End If
*** Next Cell
*** Set myRange = Application.Intersect(myRange, .Cells)
End With

If Not (myRange Is Nothing) Then myRange.EntireRow.Hidden = True
Application.ScreenUpdating = True
End Sub