L oop листы, содержащие определенные символы

Question

Я хочу l oop код ниже на всех листах, которые содержат "12MN" в названии листа. Код в настоящее время построен для запуска на одном листе. Если есть более чистый код того, что у меня уже есть, это тоже было бы здорово. TIA.

Sub TransferValuesOnly()

Dim rng As Range

'Grab Some Data and Store it in a "Range" variable
    Set rng = Worksheets("John Smith 12MN").Range("B7:R18")

'Transfer Values to same spot in another worksheet (Mimics PasteSpecial Values Only)
    Worksheets("John Smith 12MN").Range("B6").Resize(rng.Rows.Count, rng.Columns.Count).Cells.Value = rng.Cells.Value

'Grab Some Data and Store it in a "Range" variable
    Set rng = Worksheets("John Smith 12MN").Range("B24:R35")

'Transfer Values to same spot in another worksheet (Mimics PasteSpecial Values Only)
    Worksheets("John Smith 12MN").Range("B23").Range("B23").Resize(rng.Rows.Count, rng.Columns.Count).Cells.Value = rng.Cells.Value

End Sub

Answer 1

1. Добавление рабочего листа l oop
2. Проверьте имя с помощью InStr
3. Поменяйте местами ссылки на листы в жестком коде с ссылкой на лист l oop (ws)

---

Dim rng As Range
Dim ws As Worksheet

For Each ws In ThisWorkbook.Sheets
    If InStr(ws.Name, "12MN") Then

        Set rng = ws.Range("B7:R18")
        ws.Range("B6").Resize(rng.Rows.Count, rng.Columns.Count).Value = rng.Value

    End If
Next ws