How to get my code to target only sheets that are named in a specific ranges?

Hi,

I have the following code:

Sub ErrorChecker()
Dim ws As Worksheet, lErrCount As Long

On Error Resume Next
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "XXX" And ws.Name <> "XX" And ws.Name <> "X" And ws.Name <> "XA" And ws.Name <> "XXXX" Then
    lErrCount = 0
    lErrCount = ws.UsedRange.SpecialCells(xlCellTypeFormulas, xlErrors).Count
    If lErrCount > 0 Then
        MsgBox lErrCount & " errors found in sheet: " & ws.Name, vbExclamation + vbOKOnly, "ERROR CHECKER"
    End If
    End If
Next ws
MsgBox "Message 1", vbOKOnly, "ERROR CHECKER"
MsgBox "Message 2", vbOKOnly, "ERROR CHECKER"

End Sub

Currently i have the section that ignores certain sheets but instead i'd like it to only cycle through a list of necessary sheets that currently resides in a sheet called control in colB between cells 7 and 106. However this list changes each day so there can be blank cells at the end which obviously dont equate to a sheet name. I've tried a few things but nothing seems to work. can anyone point me in the right direction?