Макров не срабатывает на активном листе

[PreoLo]

Подскажите, почему макрос не срабатывает на активном листе "XXX"?

Sub Test()
Sheets("Лист1").Copy After:=Sheets(1) 'копирую лист
Sheets("Лист1 (2)").Name = "XXX" 'переименовываю его в ХХХ

Sheets("XXX").Activate 'вроде как делаю активным...

'но почему приведённый ниже код срабатывает на "Лист1", а не на активном листе???

Set ColValue = Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
c = ColValue.Column
Set MyRange = Range([D1], Cells(3, c))
MyRange.Copy

End Sub

[Hugo121]

Потому что макрос в листе. Угадал?

[PreoLo]

Сообщение от Hugo121

Потому что макрос в листе. Угадал?

Да... И как его заставить работать на другом листе?

[Hugo121]

Положить его туда, где ему и место - в стандартный модуль.

[PreoLo]

Сообщение от Hugo121

Потому что макрос в листе. Угадал?

Спасибо за подсказку, которая была в вашем вопросе... Подтолкнули в нужном направлении!
Изменил макрос активного листа, прописав обращение к макросу листа другой книги... без модуля... Всё прекрасно отработало...

[IgorGO]

PreoLo,
1. откройте новую книгу, на первом листе в А1 впишите А1 Лист1
2. на втором листе в А1 впишите А1 Лист2
3. откройте редактор VBE (Alt+F11)
4. вставьте модуль в проект
5. скопируйте в модуль1 этот

Sub Macro1()
  Worksheets(2).Activate
  MsgBox Cells(1, 1)
End Sub

6. скопируйте в модуль листа1 макрос приведенный в п.5
выполните по очереди макросы. макросы одинаковые, делают одно и тоже, а содержание msgbox-ов разное. заметили?
потому что неяное обращение к cells(1,1) в одном случае зависит от того, какой лист активен, а в другом - в каком контексте происходит обращение к cells(1,1)

Hugo121 намекал именно на это

[Hugo121]

Я намекал на то, что код листа

MsgBox Cells(1, 1)

всегда выведет значение именно этого листа, не зависимо от того, какой лист активен.
А код модуля будет работать как и задумано.
То, что активация листов практически никогда не нужна - это другое дело.