With Worksheets("All@").Range("A2")
Do While UCase(.Offset(m, 0)) <> ""
Set IFound = Range("B2:B6").Find(What:=UCase(.Offset(m, 0)), LookIn:=xlValues)
If IFound Is Nothing Then
MsgBox "Лист: " & .Offset(m, 0) & " не найден, он будет добавлен"
Workbooks("Cities").Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = .Offset(m, 0)
m = m + 1
Else
m = m + 1
End If
Loop
End With
Поиск
Есть два диапазона данных А2:А8 и B2:B6, второй это имена всех листов книги. Если во 2-м списке не находим такой лист значит его добавляем, если находим то ок. Не могу понять в чем ошибка в коде.
Код: