Welcome to the forum!

Perhaps something like:
[VBA] Dim cel As Range, s As String
Dim MyPath As String
'Dim MyRange As Range
'MyPath = ThisWorkbook.Path
'Set MyRange = Range("B1", Range("B" & Rows.Count).End(xlUp))

For Each cel In Range("MyRange")
s = MyPath & Application.PathSeparator & Range("C" & cel.Row).Value2 & ".xls"
If Dir(s) <> "" And cel.Value = True Then
Workbooks.Open (s)
Exit For
End If
Next cel[/VBA]