Проблема с названием листов

[samolkz]

Здравствуйте!
Не могу решить одну проблему.
Необходимо написать макрос по выполнению определенных операции для стандартизированных листов. Проблема в том что названия листов будут постоянно меняться и соответственно названия листов в коде макроса тоже должны меняться, но этого я как раз таки сделать не могу. Макрос у меня написан строго на определенное название листа, скажем листа 1.

[samolkz]

В идеале хотелось чтобы было так:
Имеется стандартизированные листы, скажем Лист1, Лист2, Лист3 и т.д.
Макрос работает с данными листа "Лист1". Создает новый лист. Называет его "Лист1Упрощенный". Выгружает результаты работы с данными листа "Лист1" в лист "Лист1Упрощенный" и т.д. для каждого листа.
Саму операцию с данными листа я написал, но вот чтобы эта операция работала на все листы...не могу сделать...
Проблема в том что, количество начальных листов переменное и название листов переменное.
Помогите!)

[Казанский]

Сначала определитесь - как макрос будет определять нужный лист?
Можно обращаться к листу по номеру: sheets(2).activate
Можно плясать от текущего листа, например активировать следующий лист после текущего:

sheets(activesheet.index+1).activate

[samolkz]

Первый лист в рабочей книге будет нужным. Но название у этого листа в каждой книге будет разное

[Казанский]

Не видел поста #2. Сразу нельзя было описать задачу?

Sub bb()
Dim i&
For i = Sheets.Count To 1 Step -1
    Sheets.Add(after:=Sheets(i)).Name = Sheets(i).Name & "Упрощенный"
    'теперь sheets(i+1) или activesheet - добавленный лист
    'sheets(i) - с которого выгружать
    'макрос здесь
Next
End Sub

[samolkz]

Казанский, ваш совет с обращением через sheets(1).activate, sheets(2).activate и т.д работает.
Теперь другой вопрос:
если у меня в рабочих книгах может быть то 15 листов, то 12, то 25 скажем. Как мне быть? Писать макрос на 25 листов? и для книги с 12 листами этот макрос будет ли работать?

[samolkz]

Все вопросы отпали с вашим 5 постом!
Большой Рахмет!)

[samolkz]

Теперь появился другой вопрос
что надо прописать чтобы с активного листа sheets(i+1) шла ссылка на ячейки листа с которого надо выгружать, т.е. листа sheets(i)

Range("M2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-1]=FALSE,ABS(Лист1!R[1]C[-11]-Лист1!RC[-11]),FALSE)"
    Range("N1").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-2]=FALSE,ABS(Лист1!R[2]C[-12]-Лист1!R[1]C[-12]),FALSE)"
    Range("N1").Select
    Selection.AutoFill Destination:=Range("N1:N2"), Type:=xlFillDefault
    Range("L2").Select

[samolkz]

точнее что надо прописать вместо лист1! и т.д.

[IgorGO]

ListName = sheets(i).name
...
"=IF(RC[-1],false,ABS(" & listname & "!R[1]C[-11]-" & listname & "!RC[-11]))"