Добрый вечер. У меня пару вопросов:  
1. Как открыть любой файл из екселя? Имеется часть кода:  
 
mess = MsgBox("Открыть файл?", vbYesNo)  
               Select Case mess  
               Case vbYes  
               Shell ("explorer.exe " & ActiveCell)  
               Case vbNo  
               Exit Sub  
               End Select  
 
Однако открывать через експлорер не очень приятно, причем в семерке он открывает проводник (я знаю что надо сослаться на explorer.exe в program files). Но все таки как сделать так, чтобы у меня они просто открывались через оболочку?  
 
2. Есть такой код:  
 
fName = Application.GetOpenFilename  
       If fName = False Then _  
       Exit Sub  
       ActiveCell = fName  
 
Вот такой вот вопрос: как к пути вначале и вконце прилепить кавычки ?  
 
Заранее благодарен.