[Iska]

Хех, только хотел пожаловаться, что нет «ThisWorksheet» (по аналогии с «ThisWorkbook»), но вовремя вспомнил . Для ссылки на рабочий лист, который содержит вышеприведённый код, вместо:

Код:

Set objTargetRange = ThisWorkbook.Worksheets.Item("Лист1").Range("D2:D20")

можно попробовать:

Код:

Set objTargetRange = Me.Range("D2:D20")