セルの内容がリスト値と一致しない場合はシートを削除します

このコードを使用する前に、名前リストを「ジョブレポート」から同じワークシートにコピーしてください。次に、このマクロはブック内の各シートを循環しFIND、名前が「スタッフ名」と呼ばれるタブのどこかにあるかどうかを識別するために使用します。

Dim focus_SHEET As Worksheet
Dim Rng As Range
For Each focus_SHEET In Sheets
    focus_SHEET.Select
    Set Rng = Sheets("staffnames").Cells.Find(Range("C4"), LookIn:=xlValues)

    If focus_SHEET.Name = "staffnames" Then
        'skip over the staff list
        'do nothing
        MsgBox ("skip " & focus_SHEET.Name)
    ElseIf Not Rng Is Nothing Then
        'found name on the list
        'do nothing
        MsgBox ("found " & Range("C4"))
    Else:
        'did not find name on the list
        MsgBox ("unrecognized name: " & Range("C4"))

        'delete the tab
        Application.DisplayAlerts = False
        focus_SHEET.Delete
        Application.DisplayAlerts = True
    End If
Next focus_SHEET
Set focus_SHEET = Nothing
Set Rng = Nothing

End Sub

スタッフ名のソースを自動的に開く機能をさらに追加することもできます。しかし、これはあなたを正しい方向に向かわせるはずです。