VBA Create Array For New Worksheets

Another one using your favourite topic

Sub AddSheetsmine()

    Application.ScreenUpdating = False
    
    Dim dic As Object, bottomB As Long
    Dim rng As Range
    Dim ws As Worksheet
    
      Set dic = CreateObject("scripting.dictionary")
      dic.CompareMode = 1
    Set ws = Sheets("All Data")
    
    bottomB = ws.Range("B" & Rows.Count).End(xlUp).Row

    For Each rng In ws.Range("B8:B" & bottomB)
         If Not dic.exists(rng) Then dic.Item(rng) = Empty
             If Not Evaluate("ISREF('" & rng & "'!A1)") Then
                    Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = rng
             End If
    Next rng
End Sub