Добрый день, планетяне!  
 
Задача у меня такая - в рабочую книгу вставлять отсканированные документы при вставке значений на листе, чтоб их потом можно было увидеть при даблклике по ячейке. Ну тут я частично сам решу, вопрос вот в чем - а вот куда сканы складывать? У меня мысль такая - создать один скрытый лист, куда помещать сканы все. Так возможно в принципе? Или каждый скан на отдельный лист надо?  
Ну а при наведении на ячейку с проставленным значением вызывать процедуру отображения рисунка - где-то видел на форуме, но тут второй вопрос - как связать конкретную ячейку и конкретный рисунок?  
 
Вот нашел код вставки изображений на лист, что в нем доработать надо, чтоб вставка була не на текущий лист, а на определенный другой (скрытый)?  
Sub InsertPicture()  
Dim FD As FileDialog  
Dim iFileName As String  
     
   Set FD = Application.FileDialog(msoFileDialogFilePicker)  
   With FD  
       .Filters.Clear  
       .Filters.Add "Все рисунки", "*.*"  
       .Filters.Add "JPG", "*.jpg"  
       .Filters.Add "Рисунки", "*.bmp"  
       .Filters.Add "PNG", "*.png"  
       .Filters.Add "tif", "*.tif"  
       .FilterIndex = 2  
       .AllowMultiSelect = False  
       .InitialFileName = ThisWorkbook.Path  
       .Title = "Добавление рисунка"  
       .ButtonName = "Вставить"  
       If .Show = False Then  
           'MsgBox "Вы не указали нужный файл!", 48, "Ошибка"  
           Exit Sub  
       Else  
           iFileName = Right(.SelectedItems(1), Len(.SelectedItems(1)) - InStrRev(.SelectedItems(1), "\"))  
           If Right(UCase(iFileName), 4) = ".XLS" Then iFileName = Left(iFileName, Len(iFileName) - 4)  
       End If  
   End With  
   Set FD = Nothing  
   ActiveSheet.Pictures.Insert(iFileName).Select  
End Sub  
 
Вообщем, прошу помощи зала (планеты)!