すべてのワークシートに操作する

    'ワークシート「table1 (」を含むものを削除。
    Dim target As Worksheet
    Dim delIdx As Integer
    For Each target In ThisWorkbook.Worksheets
        If target.Name Like "table1 (*)" Then
            delIdx = target.Index
        End If
    Next target
    ThisWorkbook.Worksheets(delIdx).Delete

    'ワークシート「table1 (」を含むものを削除。
    Dim target As Worksheet
    Dim delIdx As Integer    
    For delIdx=1 To Sheets.Count
        If Worksheets(i) Like "table1 (*)" Then
            delIdx = target.Index
        End If
    Next target
    ThisWorkbook.Worksheets(delIdx).Delete