The Textboxes are Drawing Toolbar textboxes. It was suggested that I add
the following code to also search the textboxes, but I can't get it into
the original code where it will still run correctly.

Thanks!
Ann


Code:
--------------------

Dim tbox As Textbox

For Each tbox In .sheets(sh).Textboxes
If instr(1,AcNo,tbox.Text,vbTextcompare) Then
' AcNo found

End If
Next

--------------------


--
Annie Oakley
------------------------------------------------------------------------
Annie Oakley's Profile: http://www.excelforum.com/member.php...o&userid=28996
View this thread: http://www.excelforum.com/showthread...hreadid=487256