Hi,

I've come up with this formula so far, but it needs to make a loop,I think
with an If statement. Also the string to be found is always in column A. I
didn't put it in there yet. Anyone?


Cells.Find(What:="[bestandnaam*", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Range(Selection, Selection.End(xlToRight)).Select
Selection.Cut
Selection.Offset(1, 5).Select
ActiveSheet.Paste