Действие по нажатию клавиши на клавиатуре

[iliy25rus]

Подскажите пожалуйста, как сделать так чтобы, действие происходило при нажатии клавиши на клавиатуре, например при нажатии стрелки влево, слева от ячейки со стилем1 ячейка приобретала стиль1 а сама ячейка приобретала обычный стиль.

[nilem]

Можно так попробовать

Sub Setup_OnKey()
    Application.OnKey "{LEFT}", "LeftArrow"
    MsgBox "Клавиша LEFT переназначена", 64
End Sub
Sub Cancel_OnKey()
    Application.OnKey "{LEFT}"
    MsgBox "Восстановлена обычная клавиша LEFT", 64
End Sub
Sub LeftArrow()
With ActiveCell
    .Copy
    .Previous.PasteSpecial Paste:=xlPasteFormats
    .ClearFormats: .Previous.Select
End With
Application.CutCopyMode = False
End Sub

[iliy25rus]

Всё понято спасибо=)