Ich habe mir einen Code ansatz weise gebastelt, komme jetzt aber nicht weiter. Jetzt wird einfach der erste gefunden eintrag gelb markiert. 

Ich hätte gerne das die ganze Spalte A durchstöbert wird. Wie bringe ich diesen Code in eine Schleife?

Sub suchen()

Dim finden As Range

Set finden = Columns(1).Find(what:=Range("b1"))
Cells(finden.Row, finden.Column).Interior.ColorIndex = 6

End Sub