Макросом скопировать данные из ячейки

[kzld]

Макросом скопировать данные из ячейки.
Ячейка всегда одна и та же
Сложность в том, что надо скопировать не все содержимое, а часть
Пример, в ячейке данные "123456789" , надо чтобы в буфер обмена копировалось "23456789" , т.е. без первого символа.
Попробовал написать сам, не знаю как отбросить первый символ

Sub opfi()
'
' opfi Макрос
'
' Сочетание клавиш: Ctrl+q
'
Range("E12").Select
ActiveCell.FormulaR1C1 = "123456789"
Range("G12").Select
End Sub

[Hugo121]

With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.SetText mid(activecell,2): .PutInClipboard
End With

[kzld]

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

With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.SetText mid(activecell,2): .PutInClipboard
End With

Это надо добавить в код моего макроса ?

[Hugo121]

Можно и туда
Вместо активной ячейки можно дать любую строку, например:

Sub tt()

With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.SetText Mid("123456789", 2): .PutInClipboard
End With

End Sub

[kzld]

Спасибо.
Пробую выполнить макрос
В буфер обмена помещается "23456789"
Т.е. то что "зашито" в тело макроса.
Реально же в ячейке "E12" моего файла другое значение

[Hugo121]

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

что "зашито" в тело макроса

так зашейте туда что нужно. Как - я выше написал.
Ну или скомпонуйте с своим кодом.

[kzld]

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

так зашейте туда что нужно. Как - я выше написал.
Ну или скомпонуйте с своим кодом.

Дело в том, что E12 динамическая

[Hugo121]

Знаете, ActiveCell тоже не сильно постоянна...