Ага, спасибо, нашел в справке по Shell.  
Тока не фурычит. Ошибка 5

Вижу что не тем, иначе бы работало :-)  
 
Но ошибка всё-так 5 (см. вложение)

А вот теперь - ошибка 53

.

И что? Файл не найден. Ты уверен в правильности пути? У тебя exe файл правда высыпан в общую директорию "программы"? Может все же "...\программы\Viewer\FSViewer.exe"? Ты бы тоталкоммандером скопировал полный путь.

Я путь копировал со свойств exe-шного файла  
(поэтому там сначала exe и не прописалось)

Здравствуйте Сергей!  
нашел инете  
 
Sub Test()  
 Dim myFile As String  
 myFile = Quote("C:\Program Files\Mozilla Firefox\firefox.exe")  
 Shell "CMD /c " & myFile  
End Sub  
 
Function Quote(str As String) As String  
 If Left(str, 1) = """" Then  
   Quote = str  
   Else: Quote = """" & str & """"  
 End If  
End Function

Смотри, что на самом деле.

Только что проверил на jpg и txt:  
 
 
Sub fopen()  
With Application.FileDialog(msoFileDialogFilePicker)  
.Filters.Clear  
.Filters.Add "All files", "*.*"  
.Filters.Add "Microsoft Excel files", "*.xls"  
.Filters.Add "Microsoft Excel dbf files", "*.dbf"  
.Filters.Add "Pictures", "*.jpg"  
.AllowMultiSelect = False  
.InitialFileName = ThisWorkbook.Path  
If .Show = 0 Then Exit Sub  
CreateObject("WScript.Shell").Run Chr(34) & .SelectedItems(1) & Chr(34)  
End With  
End Sub  
 
Фильтры можно по вкусу добавить, InitialFileName поменять.

Всем огромное спасибо!  
Заработало :-)  
 
АВС - один твой макрос работает, другой (с функцией) нет. Или у меня не получилось :-)  
 
Hugo - работает на ура, только цель у меня была одной кнопкой запускать прогу :-)  
 
KukLP - твой совет оказался бесценным. Я долго искал на компе тотал коммандер, потом скачал его и да, действительно путь был как ты говорил  
<<<У тебя exe файл правда высыпан в общую директорию "программы"?>>>  
Нет. Это была ещё одна папка, которой я присвоил такой же ярлык как и самому exe...  
А при копировании свойств самой проги путь её обрезается на названии ПАПКИ в которой она лежит, а название exe-файла и его расщирение нужно добавлять самому...    
тотал коммандер мне это показал  
 
Что интересно макрос (я остановился на этом) работает и в таком виде  
 
Sub FSViewer()  
Dim RetVal  
RetVal = Shell("c:\Users\ион\Desktop\Программы\FSViewer45\FSViewer", 1)  
End Sub  
 
и если добавить в конец пути расширение.  
Проверил несколько раз, выбрал одно из двух, повесил на кнопку, сижу играюсь как ребёнок :-)  
 
Всем ещё раз огромное спасибо!

Еще раз ГЫ:-)

Да тоже самое, что и у твоего тёзки :)  
Только "в профиль"