See if you can find something here

http://www.rondebruin.nl/tips.htm

Unfortunately, I don't have time to search there myself, but I know there's
something that works similar to what you want there.

"Mel" wrote:

I have just over 1000 spreadsheets (retro salary calculations) where I
need to find all the sheets that have more than $3,000 in cell K47 on
tab called 'RETRO'. (I have other folders that I would need to search
for not on same server so would need to set up this macro in a
spreadsheet that could be shared with my users to do a search on their
files as well).

The macro would run and will allow me to change the search criteria -
amount (ie. $4,000 or $5,000), also change the location of where the
spreadsheets to search for are.

The folder where the spreadsheets will be locatged may have sub
folders which I would also like to search in but am not sure of the
coding to get the search to perform in all folders and subfolders.

The spreadsheet I will be searching in has 5 tabs. The 4th Tab is
called 'RETRO' and is the tab that has the info in it I want. Cell
K47 has the target data. If I find any spreadsheet with $3,000 (or
what I specify) or more we then need to copy to a new spreadsheet
called 'AUDIT' and copy cells (from the retro tab) E2, I2, K2 and K47
to this new spreadsheet.

I have this so far:

Sub OpenAFile()
Dim vfilename As String, FindMe As String
Dim myBk As Workbook
Const Message As String = "Enter Search amount:"
Const Title As String = "Dollar Search"
FindMe = InputBox(Message, Title)
If FindMe = vbNullString Then
****MsgBox "No Search amount listed.**Please enter an amount to search
for and try again", _
********, "Search Result"
****Exit Sub
End If

thanks

Mel