Выделение ячейки цветом по сочетанию клавиш

[linguist]

Добрый день.

Нужно по нажатию клавиш Ctrl-C не только копировать в буфер, но и выделять активную ячейку цветом. Записал макрос, который выделяет ячейку по сочетанию клавиш, но теперь таким сочетанием не получается копировать. Подскажите, как добавить обе функции (копирование, раскраска) на Ctrl-C.

Sub Макрос5()
'
' Макрос5 Макрос
'
' Сочетание клавиш: Ctrl+c
'
    ActiveCell.Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

[IgorGO]

добавьте

Selection.Copy

в начале или конце макроса в зависимости от того в каком состоянии ячейку нужно скопировать (в первоначальном или уже раскрашенном)

[linguist]

Спасибо. Только хотел отписать, что нашел решение)

Но пришлось чуть изменить код, потому как если назначать макрос на кнопку, нужно учитывать раскладку клавиатуры. Соответственно, получилось следующее:

Sub Выделить_и_скопировать()

' Сочетание клавиш: Ctrl+с
' рус

    ActiveCell.Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    Selection.Copy
    
' Сочетание клавиш: Ctrl+c
' англ

    ActiveCell.Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    Selection.Copy

End Sub

[linguist]

Подскажите еще, как вставить из буфера обмена?
Нужно скопировать таблицу из ворда, потом выполнить макрос. Хочу сделать так, чтобы при нажатии сочетаний Ctrl-V, вставлялась таблица, а потом выполнялся макрос, но не пойму как реализовать. Можно реализовать задуманное способом вроде ActiveCell.Paste?

[linguist]

По вставке текста помог вот такой вариант

ActiveCell.Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False