Sub import01()

Dim hfile(7), i As Integer

hfile(0) = "T:\Abc\Consolid\htmPL\PLY.HTM"
hfile(1) = "T:\Abc\Consolid\htmPL\PLB.HTM"
hfile(2) = "T:\Abc\Consolid\htmPL\PLL.HTM"
hfile(3) = "T:\Abc\Consolid\htmPL\PLPP.HTM"
hfile(4) = "T:\Abc\Consolid\htmPL\PLR.HTM"
hfile(5) = "T:\Abc\Consolid\htmPL\PLT.HTM"
hfile(6) = "T:\Abc\Consolid\htmPL\PLSMHK.HTM"
hfile(7) = "T:\Abc\Consolid\htmPL\PLSMH.HTM"

For i = 0 To 7

Workbooks.Open Filename:=hfile(i)

'.. vb code
'.. vb code
'.. vb code

Next

End Sub

hth

Carlo


On Dec 13, 12:53 pm, aw wrote:
Would like to know the correct statement that make the following VB works

Sub import01()

Dim hfile(1 To 8), i As Integer

hfile1 = "T:\Abc\Consolid\htmPL\PLY.HTM"
hfile2 = "T:\Abc\Consolid\htmPL\PLB.HTM"
hfile3 = "T:\Abc\Consolid\htmPL\PLL.HTM"
hfile4 = "T:\Abc\Consolid\htmPL\PLPP.HTM"
hfile5 = "T:\Abc\Consolid\htmPL\PLR.HTM"
hfile6 = "T:\Abc\Consolid\htmPL\PLT.HTM"
hfile7 = "T:\Abc\Consolid\htmPL\PLSMHK.HTM"
hfile8 = "T:\Abc\Consolid\htmPL\PLSMH.HTM"

For i = 1 To 8

Workbooks.Open Filename:=hfile(i)

.. vb code
.. vb code
.. vb code

Next

End sub

--
aw