I wrote a search form which works well as an Excel file, however, when
I converted it to an addin it throws up this error...

Object variable or with block variable not set

When I click on debug is highlights this part of the code

Set shtSearch = ThisWorkbook.ActiveSheet
Locate TextBox1.Text, shtSearch.Range("A:IV"), blnGotColor,
lngColor

I researched as much as I could on Newsgroups and see that an addin
does not have active sheets but I could not find out how to fix the
problem. Can someone help please?

Many thanks
Tony