Hello guys,
im using this code
Sub etc
xLastRow = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To xLastRow
Columns("AO:AT").Select
Selection.Find(What:="Michael", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _...