vba to find and open specific folder

Dear , I have excel worksheet contains command button this command button named city and I have folder named city as command button name contains many files. I need a vba to search in directories C and D… etc to find folder named city ( like command button name) , if the folder does not exist I want to get message that folder does not exist , and if there are more than one folder in the same name city I want to list all and I will choose one of them to open it , and if there is just one folder in the name city I want vba to open it directly.

Regards

Dear Bernie ,
All I want :
I have folder named city contains many excel files, and I have excel sheet contains a command button , I named the caption of this command button as the same of the folder city, I want macro to search and open the folder when I press the command button (search in both directories C & D ), then I will choose manually the file I want . also if the folder not exist I want a message that folder not exist , and if there are more than one folder in same name I want a list of all folder found then I will choose which one I want to open.
Thanks for your help

Dear Berine ,
I'm new in vba , so I creat a command button in sheet1 and and edited its text to FindCity ,then copied your code and paste it in this command button , but when I press the command button I got a message ' compile error: user-define type not defined' . what should I do to let the code work? .
and don't know , what do you mean 'set a reference to MS scripting Runtime'
Note : I use excell 2003 .
Hope your help
Regards

Dear Bernie, I am shying from you because I weak I vba , but the code above doesn't work yet.
My computer is just 2 pratitions " C " and " D " . and my folder exist on part "D" but i want the macro search in all partitons 'C' and all 'D' to the folder name as caption of command button and open it .
Regards and thanks

I delete line of "set RootFolder=FileSysObject.GetFolder("C:\users\username\document") at all , and let just line of RootFolder… etc of "D" , also I got the same error that I mention above Runtime error 70 , permidsion denied .
Why ? Although I saved your excel file as it on my computer and I rename the caption of command button .

Dear Bernie , if you please to help me ,
May you send me a new working excel file contain command button to open my specific folder named as caption of command button and my folder exactly exist on desktop .
Note : i want the macro ignor in the path the owner of computer . because i want the macro still wotking if I copy the file to another computer ( to the new computer owner )
And if there is any change in macro to be suitable for me please let me know where and how .
Hope your help

Regards

Dear Berinie , sorry to inconvenience you ,
When I run the macro I got this message 'run-time error 438: object doesn't support this property or method ' and the macro line "FindFolderName = ActiveSheet. Buttons(Application. Caller). Caption" get yellow.
Note: I worked to another computer to see if the problem from my own computer. But also still the macro not working . am I have to add or cancel check of some reference rather than microsoft scripting run time . I need this macro and I'm upset.

Dear Bernie , i'm very thankfull , the code works perfect , and i'm sorry to inconveniance you .

Besr Regard

Dear Bernie ,
your code is working very well .
but in the folder i have Excel files and some images , when i press the button and open the folder i can open normally the excel files but the images doesn't open by double click it open file excel instead contains some letters and symbol . how can i solve this problem and open the images by double click on it ?
also can you make a macro like the macro above to open an excel file have name the same caption of command button ? also the excel files exist in folders exist on desktop .

Best Regards