Private Function GetValue(path, File, sheet, ref)
Dim arg As String
If Right(path, 1) <> "\" Then path = path & "\"
If Dir(path & File) = "" Then
GetValue = "Файл не найден"
Exit Function
End If
arg = "'" & path & "[" & File & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
GetValue = ExecuteExcel4Macro(arg)
End Function

Sub TestGetValue2()
Dim re, F
Dim File As String
Set re = Workbooks.Application.FileDialog(1)
     With re
       .Filters.Clear
       .AllowMultiSelect = False
       If .Show = -1 Then
       p = .InitialFileName
       F = Replace(.SelectedItems(1), p, "")
       End If
     End With
s = "Лист1"
Application.ScreenUpdating = False
For c = 1 To 3
  a = Cells(1, c).Address
Cells(1, c) = GetValue(p, F, s, a)
Next c
Application.ScreenUpdating = True
End Sub