Fritekst søgning i Excel regneark - som en macro - Visual Basic?

Hej Aminos

Jeg på jagt efter en excel expert der kan fortælle ... eller give et link til en macro der gør følgende i Excel 2010 (tror af Visual Basic fra 2007 også kan bruges), der kan lave en fritekstsøgning i alle ark(sheets) i en workbook. Skal virke lidt som Excels Find all

Man indtaster et vilkårlig søge text fx 'FindMig'

Macroen søger alle arkene (sheets) igennem og skriver hvor mange hits der blev fundet.

Option: Den skriver fx

Sheet 1: 10

Sheet 2: 3

Sheet 3: 0

Gerne lige under den celle man havde curseren i. Det

Gad vide om nogen kan knuse dén! Måske den allerede findes på nettet. Jeg synes det er mærkelig at den ikke findes i forvejen.

På forhånd tak for svar

Henrik

PS: Jeg har prøvet med Count(), Find()...men det bliver for omfangsrigt