Hi K,

Try this simple solution.

Private Sub CommandButton1_Click()

cFolder="C:\Documents\Data\Subfoldder\"

If dir(cFolder & Worksheets("Sheet1).Range("A1"))="" then
a=msgbox("File Not Found",vbExclamation,"Missing File")
exit sub
Else
Workbooks.Open Filename:= cFolder & Worksheets("Sheet1).Range("A1"))
Endif



End Sub
"K" wrote:

Hi all, In Folder "C:\Documents\Data" I have about 10 Subfolders in
each Subfolders I have about 20 excel files. All excel files names
are something like (see below)

523699.xlsx
568944 - pg 1.xlsx
568944 - pg 2.xlsx
578944 - 578945.xlsx
588771.xlsx
etc€¦€¦

I want macro assigned to a button and I want that when I click on the
button macro should look the file name in cell A1 and then look that
file in all the Subfolders and then when file is found macro should
open that file else pop up MsgBox saying "File is not found". For
example if I put file name (like given above) 523699 in cell A1 and
when I click button, macro should look for this file in all the
Subfolders and if file is found then macro should open it otherwise
MsgBox should pop up saying that "File is not found". Hope I was able
to explain my question. Can please any friend help me?