Запуск макроса в Excel - VB

Sub Хмелевсикх ()
'
' Хмелевских Макрос
'
' Сочетание клавиш: Ctrl+u
'
    ActiveWindow.SmallScroll Down:=87
    Range("A117").Select
    ActiveCell.FormulaR1C1 = "Хмелевских Александр"
    Range("A117").Select
    Range("A117").AddComment
    Range("A117").Comment.Visible = False
    Range("A117").Comment.Text Text:="Слада:" & Chr(10) & "В-С760417, вариант-8"
    Range("A117").Comment.Visible = True
    Range("A117").Comment.Visible = False
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    ActiveWindow.SmallScroll Down:=-147
    Range("A1:D1").Select
End Sub