Не получается присвоить переменной vba из ячейки excel

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

Пожалуйста, помогите с этой проблемой. Суть вот в чем: у меня получилось записать макрос который бы делал картинку меньше в заданное кол-во раз, но мне нужно заменить это число на переменную(изначально в макросе вместо переменной hight стояло значение 0.99). Но всякий раз когда я пытаюсь запустить макрос выводится следующее: "Compile error: invalid outside procedure". Вот код макроса:

                    Листинг программы
                
 
                        
                          
                    
Option Explicit
Dim hight As Object
hight = Sheets("Г‹ГЁГ±ГІ1").Range("F2").Value
Sub l2_up()
 
'
' l2_up Макрос
'
' Сочетание клавиш: Ctrl+t
'
    Selection.ShapeRange.ScaleHeight hight, msoFalse, msoScaleFromTopLeft
    Application.CommandBars("Format Object").Visible = False
End Sub

Решение задачи: «Не получается присвоить переменной vba из ячейки excel»

textual
                            Листинг программы 
                        
Sub Макрос1()
 
hight = Range("F2")
 
ActiveSheet.Shapes(1).ScaleHeight hight, msoFalse, msoScaleFromBottomRight
ActiveSheet.Shapes(1).ScaleHeight hight, msoFalse, msoScaleFromBottomRight
 
End Sub