message box showing # of values found with a searchbox macro

Hi peeps,

I have the following macro which is basically a search box. If the value/text is found anywhere in the workbook the cell is highlighted in yellow.

I'm hoping to expand on this by adding a msgbox which lets the user know how many cells were found and highlighted eg. "3 entries found"

any help from the experts?

Please Login or Register  to view this content.

Hi,

Add another variable to count the number of times the Else part of the loop is processed. i.e.
Dim lCounter as Long

Then within your Else part of the loop use the line
lCounter = lCounter + 1

Then your message box becomes

MsgBox lCounter & " entries found"


HTH

Try this:

Please Login or Register  to view this content.