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

Формулировка задачи:

Помогите пожалуйста макрос запускаю ошибку выдает. Application-defined or object-defined error

                    Листинг программы
                
 
                        
                          
                    
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

Решение задачи: «Запуск макроса в Excel»

textual
                            Листинг программы 
                        
Range("A117").ClearComments