While loop werkt niet naar behoren

Sub Hide_sheets_ICBO()

Dim sheet2, sheet As String
Dim ws As Worksheet
Dim i As Integer

sheet = "."
i = 14

'Call settingson

Do While sheet <> ""

    sheet = Sheets("I-CBO").Cells(i, 16)
    sheet2 = Sheets("I-CBO").Cells(i, 2)
    
    If sheet = "Waar" Then
    'loop all sheets
        For Each ws In ThisWorkbook.Worksheets
        'if worksheet = sheet2 then visable = true
            If ws.Name = sheet2 Then
            ws.Visible = True
            End If
        Next ws
          
    End If
    
    If sheet = "Onwaar" Then
     'loop all sheets
        For Each ws In ThisWorkbook.Worksheets
            'if worksheet = sheet2 then visable = false
            If ws.Name = sheet2 Then
            ws.Visible = False
            End If
        Next ws
    End If

    i = i + 1

Loop

'Call settingsoff

End Sub

Sub VenA()
  ar = Sheets("I-CBO").Cells(14, 16).CurrentRegion.Offset(, -14).Resize(, 15)
  For j = 1 To UBound(ar)
    If Not IsError(Evaluate("'" & ar(j, 15) & "'!A1")) Then Sheets(ar(j, 15)).Visible = ar(j, 1)
  Next j
End Sub