Open multiple workbooks by referencing cells down a column

[JJGF]

The following code is supposed to open multiple books down a list in column B but only the first workbook listed opens




Sub OPENBOOK()
On Error Resume Next

Application.DisplayAlerts = True
Dim i As Byte

With Sheets("TOTE")

For i = 15 To 25
If Err.Number Then
GoTo NextFOR
Err.Clear
End If
If UCase(.Cells(i, "A").Value) = True And Cells(i, "B").Value <> "" Then
Application.Workbooks.Open ("C:\Documents and Settings\" & Cells(i, "B").Value)

End If

NextFOR:
Next i
End With

End Sub

[Marc L]

Sub OPENBOOK()
    Dim R As Byte

    Application.DisplayAlerts = True

    With Worksheets("TOTE")
        For R = 15 To 25
            If UCase(.Cells(R, 1).Value) = True And .Cells(R, 2).Value > "" Then
                FILE$ = "C:\Documents and Settings\" & .Cells(R, 2).Value
                If Dir(FILE) > "" Then Application.Workbooks.Open FILE
            End If
        Next R
    End With
End Sub

[JJGF]

same result, only opens one file

[JJGF]

I think the macro ends after first workbook opens and does not loop

[Marc L]

My code, without any trap error, opens only existing file after this condition :

If UCase(.Cells(R, 1).Value) = True And .Cells(R, 2).Value > "" …

Maybe this is the issue …

(Forum rules : use code tags around code, edit your fisrt post …)