5) Сочетанием клавиш ALT+F11 открываем редактор VBA и вставляем код макроса Private Sub WorkSheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub ActiveCell.Calculate End Sub (Исправлена опечатка в макросе, ActiveCell.Calculate на отдельной строке идет) Закрываем редактор 6) Что бы макрос работал надо сохранить файл как Книга Excel с поддержкой макросов (.xlsm)
