Заимела :)))))))

тогда следуйте инструкции к кнопке :)  
 
а вообще - что значит открыть? вывести окно диалога выбора файла из папки? тогда  
 
   Application.Dialogs(xlDialogFindFile).Show  
 
но могут быть и еще варианты

{quote}{login=Pavel55}{date=25.06.2008 03:42}{thema=}{post}Что-то я не понял, что надо открыть  
 
Sub OpenWinDir()  
Dim oShell  
Dim WinFolder As String  
   WinFolder = Environ("WINDIR")  
   Set oShell = CreateObject("Wscript.Shell")  
   oShell.Run (WinFolder)  
End Sub  
 
Кнопку сами прикрутите?{/post}{/quote}  
 
 
эт точно не для меня. Я так понимаю это создается папка, а у меня она есть , путь к ней в строковой переменной и по этой переменной нужно найти папку и открыть, как файл  Open "" & Адрес файла & "" For Random As FreeFile или Set wbSrc = Workbooks.Open(Filename:="" & Имя_файла & "", ReadOnly:=True, UpdateLinks:=0), только папку

Держите пример попроще )  
 
Sub OpenFolder()  
Dim oShell  
Dim iFolder As String  
   iFolder = "C:\"  
   Set oShell = CreateObject("Wscript.Shell")  
   oShell.Run (iFolder)  
End Sub

Видимо я не учла что у меня адрес - строка )))))))))))))) Спасибочки огромное

Сработало. Павел, спасибо огромное

) ну, и хорошо, что сами разобрались )

если iFolder содержит пробелы, то не работает метод Run.  
Если iFolder = """C:\Program Files""", то нормально,  
а если путь папки задается программно?  
Помогите пожалйста.

iFolder = """" & sFolder & """"  
Так работает!