Search within a column and repeat the search until all items are found

I have a spreadsheet that has formulas in Column H that determine if certain data is present in column G, and if so, displays the word "TODAY" in the corresponding row in Column H. I want a macro to search Column H for the cells containing the word "TODAY". When it finds the word "TODAY", it freezes the date in the corresponding row in Column G and then searches for the next word "TODAY" in Column H, until all have been found and all dates have been frozen. Column H will have no more than 200 cells (H6:H206) with the potential for the word "TODAY" in a cell. I know how to freeze the dates but I don't know how to search Column H for the next available "TODAY".

Sheets("SUMMARY").Select
ActiveSheet.Unprotect  
   Application.Goto REFERENCE:="TOP"
   Cells.Find(What:="TODAY", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
     ActiveCell.Offset(0, -1).Activate

Thanks for the assistance. Randy