Здравствуйте товарищи!
Пытаюсь создать макрос в экцеле.
Для автоматического присвоения гиперссылок всем ячейкам, на файлы в заданной папке с такими же названиями как в ячейках. Но присвоение ссылки не получается сделать к файлу с наивысшим символом в конце. Т.е. ф ячейке экцеля 007, а в папке 007_1 и 007_2 файлы. Требуется присвоение гиперссылки к файлу 007_2. Но выдает "time error 13 - type mismatch". Может бегло проверите, где спряталась ошибка?
Заранее благодарен.

Sub hyperLink()
Const sFolder = "D:\DB"
Dim o, s$, i As Integer
For Each o In Range("G1:G100")
If Not Len(o.Text) = 0 Then
s = o.Text & "*"
Max = 0
With Application.FileSearch
.LookIn = sFolder
.SearchSubFolders = True
.FileType = msoFileTypeOfficeFiles
.Filename = s
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
If CInt(Right(.FoundFiles(i), 2)) > Max Then
maxfile = .FoundFiles(i)
Max = CInt(Right(.FoundFiles(i), 2))
End If
Next i
End If

ActiveSheet.Hyperlinks.Add Anchor:=o, Address:=maxfile
End With
End If
Next
End Sub