{quote}работая под Вистой {/quote}  
Буду иметь в виду, хотя у меня XP.

Спасибо! Пока писала вопрос, Вы уже ответили

Я не знаю, какой файл с каким расширением, как же я расширение в ячейку впишу? Можно сделать несколько столбцов для разных вариантов, но мне кажется, это далеко не оптимально. Как сделать, чтобы макрос находил файлы с любым расширением? Звездочка, как в коде из post_204146.xls не помогла в данном случае, или я ее не туда поставила.

Не трудно. Спасибо! А можно еще вопросик: как сделать тоже самое для этого кода:  
 
Sub Move_Files()  
   Dim sFilesPath As String, sNewPath As String  
   Dim lLastRow As Long, li As Long  
   With Application.FileDialog(msoFileDialogFolderPicker)  
       If .Show = False Then Exit Sub  
       sFilesPath = .SelectedItems(1)  
   End With  
   sFilesPath = IIf(Right(sFilesPath, 1) = Application.PathSeparator, sFilesPath, sFilesPath & Application.PathSeparator)  
   sNewPath = sFilesPath & "MovingFiles\"  
   If Dir(sFilesPath) = "" Then MsgBox "Íåâåðíî óêàçàí ïóòü ê ôàéëàì.", vbCritical, "Îøèáêà": Exit Sub  
   If Dir(sNewPath) = "" Then MkDir sNewPath  
   lLastRow = Cells(Rows.Count, 1).End(xlUp).Row  
   Application.ScreenUpdating = False  
   For li = 1 To lLastRow  
       If Cells(li, 1) <> "" Then  
           If Dir(sFilesPath & Cells(li, 1) & ".jpg") <> "" Then _  
              Name sFilesPath & Cells(li, 1) & ".jpg" As sNewPath & Cells(li, 1) & ".jpg"  
       End If  
   Next li  
   Application.ScreenUpdating = True  
   MsgBox "Ôàéëû ïåðåìåùåíû", vbInformation, "Èíôîðìàöèîííîå îêíî"  
End Sub  
 
а то там сейчас только ".jpg"

Добрый день!  
Есть папка с графическими файлами (jpg, gif и png). Есть файл, в котором перечислены названия файлов без расширения. Нужно создать макрос, который бы проставлял а таблице гиперссылки на эти файлы. Excel 2007! Помогите, пожалуйста!  
На этом форуме я уже нашла тему, где писали макрос для выбора картинок, (http://www.planetaexcel.ru/forum.php?thread_id=9966)я его и использовала, но мне нужно не только выбрать, но и создать гиперссылки.