Que tal buen día me pueden ayudar con un macro

que tal me pueden ayudar con una macro que genere

si la corro paso a paso es función pero si le do ejecutar me marca un error

en next

la macro es al sig

lo que hace es buscar la palabra programada en la cela columna c y si al encuentra oculte toda la fila

Sub MACRO1()

Sheets("MP MTTO LD").Select

With Selection

For fila = 10 To 220 Cells.Find(What:="PROGRAMADA", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False).Activate

Selection.EntireRow.Hidden = True

Next fila

End With

End Sub

saludos y gracias