Great Ken, thanks. It works. You are right that it's not as noticeable as the other bars but it works fine for me (if you can find a way though to get one of the cool bars in the routine I won't say no ).

The error messages are great. It tells you the route where you went wrong. I've tried to create errors and I now only get an error when the map it searches in is empty. The rest of the errors are covered.

The other thing is, the search is always in the "Data" sheet. Today I got the idea that it would also be nice if I could search the "stock" sheet which is in the same workbook. In here we have two textboxes too. I've tried [VBA] Set WB = Workbooks.Open(FileName:=SearchPath & "\" & FileName, ReadOnly:=True) _
', Password:="Uncomment and put password here if required"
Set WS = WB.Sheets("Data")
Set WS = WB.Sheets("Stock")
If Err.Number <> 0 Then Problem = True
On Error Resume Next[/VBA]
But that's not to smart because it then only searches through the "Stock" sheets.

Thanks again for all the trouble,

Regards.