Graham, been playing around with your routine and not having any luck with a line I've changed:

Do While .Execute(FindText:="^p" & "010" & "^t", MatchWildcards:=False)

It finds nothing, even though the text does exist. If I change MatchWildcards to True it reports error 5692 but no description just one little square shape. I googled for that error but found no definite reason (except perhaps it's the ^ char.)

Obviously I'm doing something wrong... can you see what it is? Possibly that syntax is for RegEx only? Something else is for finding a text match ?

Thanks.