Ребята помогите отредактировать код, никак не могу понять в чем ошибка.
Очень надо.
[vba]Код
Sub Test()
Dim FileNames As Variant, I As Integer
FileNames = Application.GetOpenFilename(MultiSelect:=True)
If IsArray(FileNames) Then
For I = 1 To UBound(FileNames)
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Fold = FSO.GetFolder(ThisWorkbook.Path)
NameF = FSO.GetBaseName(FileNames(I))
X = Fold & "\" & NameF
r = 2
Do While Cells(r, 1) <> ""
If Cells(r, 1) = NameF Then
Name X.Name As Fold & "\" & Cells(r, 2).Name
End If
r = r + 1
Loop
Next I
End If
End Sub
[/vba]