Sub Get_Value_From_Close_Book_Formula()
    Dim sPath As String, sFile As String, sShName As String
    sPath = "C:\Documents and Settings\"
    sFile = "4.xls"
    sShName = "Page 1"
    Application.DisplayAlerts = 0
    With Range("A1:I15")
        .Formula = "='" & sPath & "[" & sFile & "]" & sShName & "'!" & "A1"
        '"A1" - указывается начальная ячейка диапазона, из которого необходимо получить значения
        .Value = .Value
    End With
    Application.DisplayAlerts = 1
End Sub