This should answer 3 and 4. I added onto AB33's solution for 1 and 2. If the "like" method doesn't work you could always try instr
![]()
Sub test1() Dim sh as Worksheet For Each sh In ThisWorkbook.Worksheets With sh If sh.Name Like "WK*" Then .Rows(64).Resize(23).Insert Shift:=xlDown .Range("A87:AA109").Copy Destination:=.Range("A64") End If End With Next sh End Sub
Bookmarks