копировать - вставить AutoShape

[VictorM]

Здравствуйте, уважаемые!
Просмотрел наш форум все что касается "копировать - вставить" и пресловутый Select но не смог найти решения. А вопрос такой:
есть код

Код: Выделить всё

 Sheets("КлиентБР").Shapes("AutoShape 21").Copy
    Range("C3").Select
    ActiveSheet.Paste

оно-то работает, но хотелось бы обойтись одной строкой без Select и ActiveSheet.
Спасибо.

[DzenDen1]

Код: Выделить всё

Sheets("КлиентБР").Shapes("AutoShape 21").Copy
    Range("C3").Select
    ActiveSheet.Paste

Ух

Код: Выделить всё

Sheets("КлиентБР").Shapes("AutoShape 21").Copy Sheets("КлиентБР").Range("C3")

А что так не работает

[VictorM]

Да нет, это мы проходили. Так не работает

[VictorM]

Если кому интересно, задачка решилась так:

Код: Выделить всё

Sheets("КлиентБР").Shapes("AutoShape 21").Copy
With Worksheets("Лист1")
    .Paste Destination:=.Range("C3")
End With

причем здесь по барабану какой лист сейчас активен. Не одной строкой, но без Select и ActiveSheet.