'CWRIA is short for ClosedWorkbookRangeIntoArray

Function CWRIA(fPath As String, fName As String, sName As String, _
	     rng As String)
    Dim sRow As Integer
    Dim sColumn  As Integer
    Dim sRows As Integer
    Dim sColumns  As Integer
    Dim vrow As Integer
    Dim vcol  As Integer
    Dim fpStr As String
    Dim cArr()
    On Error GoTo NoArr
    If Right(fPath,  1 ) <> "\" Then fPath = fPath & "\"
    If Dir(fPath & fName) = "" Then
        CWA = CVErr(xlErrValue)
        Exit Function
    End If
    sRow = Range(rng).Row
    sColumn = Range(rng).Column
    sRows = Range(rng).Rows.Count
    sColumns = Range(rng).Columns.Count
    ReDim cArr(sRows, sColumns)
    For vrow =  1  To sRows
        For vcol =  1  To sColumns
            fpStr = "'" & fPath & "[" & fName & "]" & sName & "'!" & _
            "r" & sRow + vrow -  1  & "c" & sColumn + vcol -  1 
            cArr(vrow, vcol) = ExecuteExcel4Macro(fpStr)
        Next
    Next
    CWRIA = cArr
    Exit Function
NoArr:
    CWRIA = CVErr(xlErrValue)
End Function


'CWRIR is short for ClosedWorkbookRangeIntoArray

Sub CWRIR(fPath As String, fName As String, sName As String, _
	     rng As String, destRngUpperLeftCell As String )
    Dim sRow As Integer
    Dim sColumn  As Integer
    Dim sRows As Integer
    Dim sColumns  As Integer
    Dim vrow As Integer
    Dim vcol  As Integer
    Dim fpStr As String
    Dim cArr()
    On Error GoTo NoArr
    If Right(fPath,  1 ) <> "\" Then fPath = fPath & "\"
    If Dir(fPath & fName) = "" Then
        CWA = CVErr(xlErrValue)
        Exit Function
    End If
    sRow = Range(rng).Row
    sColumn = Range(rng).Column
    sRows = Range(rng).Rows.Count
    sColumns = Range(rng).Columns.Count
    ReDim cArr(sRows, sColumns)
    Set destRange = ActiveSheet.Range(destRngUpperLeftCell) 
    For vrow =  1  To sRows
        For vcol =  1  To sColumns
            fpStr = "'" & fPath & "[" & fName & "]" & sName & "'!" & _
            "r" & sRow + vrow -  1  & "c" & sColumn + vcol -  1 
            destRange.Offset(vrow -  1 , vcol -  1 ) = ExecuteExcel4Macro(fpStr)
        Next
    Next
NoArr:
End Sub

Sub InsertRangeFromClosedWorkbook()
    CWRIR "D:\EXCEL97\xlformulas", "cellDataVal.xls", "Sheet1", _
    "a1:c3", "f9"
End Sub