Sub x ()
Schemerige rFind als Waaier
Application.ScreenUpdating = Vals
Met Bladen („verzoen“). Kolommen (4)
Reeks rFind =. Vind (wat: = " Richtsnoer ", LookAt: =xlWhole, MatchCase: =False, SearchFormat: =False)
Als niet rFind dan niets is
rFind.EntireRow.Delete
Plaats rFind =. Vind (wat: = " Richtsnoer ", LookAt: =xlWhole, MatchCase: =False, SearchFormat: =False)
De lijn tot rFind is niets
Beëindig als
Eind met
Application.ScreenUpdating = Waar
Sub van het eind
|