Я не профи в VBA, умею пока самое простое. Прошу помощи.
Имеется UF1 и лист "ЭА" (Exel). В форме листбокс с 6 колонками, колонки заполнены данными с листа. Пытаюсь сделать на кнопку открыть код след.характера:
-при выборе в листбокс определенной строчки необходимо открыть определенный файл, в данном случае энергопаспорт под номером 2 (расширение файлов может быть разное, в основном jpg).
Пытался самостоятельно прописать код, но всегда вылезает ошибка 13. Файл прилагаю. Заранее спасибо огромное!

Поменял код на:
If ListBox1 = 2 Then CreateObject("WScript.Shell").Run "C:\Documents and Settings\Uts14\Мои документы\2014\РЦП ЭС и ЭЭ 2014\Отбор претендентов\База данных\ПАСПОРТА ЭА\АПК\общ 004.jpg"
выдает ошибку run-time error

Shocker.Pro,
А что тогда пишет?

Shocker.Pro,
Вроде пока разобрался. Не назначил имя переменной "ПутьКФайлу"