Как из Excel открыть папку с файлами Word - VBA

Формулировка задачи:

Всем доброе время суток ! Есть задача. Как кнопкой, находящейся в Книге Excel, открыть папку с несколькими документами (файлами) Word? Книга с кнопкой и папка с документами Word находятся в одной папке. Код такой

Sub Макрос1_Щелкнуть()
 ChDir "D:\Documents and Settings\User\Мои документы\Ob\Папка с файлами Word"
End Sub

не срабатывает.

Решение задачи: «Как из Excel открыть папку с файлами Word»

textual
                            Листинг программы 
                        

                            Sub tt()
    With CreateObject("Shell.Application")
        .explore ("C:")
    End With
End Sub
                        