To reduce the code I would use additional function:
Function getValue(wbPath As String, wbName As String, wsName As String, cellRef As String)
Dim Ret As String
Ret = "'" & wbPath & "[" & wbName & "]" & _
wsName & "'!" & Range(cellRef).Address(True, True, -4150)
getValue = ExecuteExcel4Macro(Ret)
End Function
and then call it like this:
Sub test()
Dim i As Integer, wbs
wbs = Array("overview 2014.xlsm", "workbook2.xlsm", _
"workbook3.xlsm", "workbook4.xlsm", _
"workbook5.xlsm", "workbook6.xlsm", _
"workbook7.xlsm", "workbook8.xlsm", _
"workbook9.xlsm", "workbook10.xlsm")
' LBound(wbs) = 0
For i = LBound(wbs) To UBound(wbs)
ActiveWorkbook.Worksheets("sheet1").Range("A4").Offset(i).Value = _
getValue("http://*****/2014/", CStr(wbs(i)), "sheet1", "E2")
Next i
End Sub