better code

[Cakkie]

Dim ie(2) As Object 'whatever datatype
Dim i As Integer

For i = 0 To UBound(ie)
    Set ie(i) = CreateObject("InternetExplorer.Application")
    ie(i).navigate address2
    ie(i).Visible = True
Next i