Deleting Worksheets in a table

The solution worked and helped me achieve what I was finally looking for with my main project,


Sub DeleteSheets()

Dim wks As Worksheet
    Dim MyRange As Range
    Dim Cell As Range
    
    Set wks = Worksheets("BREAKS CLEARED")
    
    With wks
        Set MyRange = Range("B2", .Cells(.Rows.Count, "B").End(xlUp))
    End With
    
    On Error Resume Next
    Application.DisplayAlerts = False
    For Each Cell In MyRange
        Sheets(Cell.Value).Delete
    Next Cell
    Application.DisplayAlerts = True
    On Error GoTo 0
    
End Sub