Total guess here but rather than use cells and step through each one separately can you use this syntax

Worksheets("Sheet1").Columns("A").find

Instead