А можно сделать сразу список, типо: spisok = Array("Апсны", "Флагман", "разбивки")... и если из списка найден лист- активировать его: .
spisok.Select, сейчас использую вот такую конструкцию:
Код |
---|
Sub Tеек()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
If LCase(sh.Name) Like "апсны" Then
sh.Select
End If
If LCase(sh.Name) Like "флагман" Then
sh.Select
End If
If LCase(sh.Name) Like "разбивки" Then
sh.Select
End If
Next
End Sub |
хотелось бы укоротить как-то код... есть мысли какие-то? спасибо. Названия листов будут только в одном экземпляре из списка.