VBA code looking through files

[nathan663]

Sub Hip_File_Open()
'
' Hip_File_Open Macro
fldr = "Q:\Workforce Planning and Allocation\HIP Files"
d = Dir(fldr & "*.xls") 'looks at all xls files in folder
Do While d <> "" 'd is a string containing the file name

d = Dir
Loop

End Sub


In the worksheet this macro is run from there is a list of numbers in column A. When the macro runs i need the macro to look through the file shown above looking for the number in cell A1. It will look through all the files, and if it finds the number it is looking for it will return the title of the workbook it found the number in. If it does not find the number in any of the work books it will bring back the result (not found)

What code is needed to do this?

Thanks

 

[xld]

Do you mean search all cells in the workbookms foer that number, or for that number to be part of the filename?

 

[nathan663]

I need it to search all cells in each worksheet for the number

 

[nathan663]

sorry they are actually workbooks arent they. there is only one sheet i need to look through in each work book. so to make it clearer there are around 20 workbooks in each folder, that i need to search through for a certain number each time.


can any one help?

 

[nathan663]

???