Скопировать строку на вкладку «Исправить» с помощью флажка

Question

Я использую флажок для копирования информации в строке, чтобы вставить ее на другую вкладку с именем Alert XX.XX.XXXX (Уровень 2). Код, который я использую, работает.

Sub Copy_bene()
'
  Dim ws As Worksheet, wsD As Worksheet, chb As CheckBox
  Application.ScreenUpdating = False
  For Each ws In ThisWorkbook.Worksheets
   If ws.Name Like "Alert * (Level 2)" Then
    Set wsD = ws: Exit For
   End If
  Next ws
  'wsD.[H2:L6] = ""
 For Each chb In ActiveSheet.CheckBoxes
  If chb.TopLeftCell.Column = 13 And chb = xlOn Then
   Cells(chb.TopLeftCell.row, 8).Resize(, 5).Copy
   wsD.Cells(Rows.count, 8).End(3)(2).PasteSpecial xlValues
   'Cells(chb.TopLeftCell.Row, 8).Resize(, 5) = "": chb = xlOff
  End If
 Next chb
 Application.ScreenUpdating = True
End Sub

Моя проблема в том, что иногда у меня будет больше вкладок с таким же именем, как «Предупреждение 02.15.2020 (Уровень 2) и Предупреждение XX.XX.XXXX (Уровень 2) в одной книге». поэтому код не вставляет информацию в правильную вкладку.

Как изменить эту строку If ws.Name Like "Alert * (Level 2)" Then, чтобы информация вставлялась в правильную вкладку Предупреждение XX.XX.XXXX (уровень 2)?

Имя листа, на котором мне нужна информация: Предупреждение 1 (Предупреждение XX.XX.XXXX (Уровень 2))

Answer 1

попробуй

If ws.Name Like "*Alert*XXX*(Level 2)*" Then