Как в Excel сделать так, чтобы при нажатии на ячейку менялось цифровое значение?

[Wessx]

Всем привет! Подскажите, как в Excel сделать так, чтобы при нажатии на ячейку менялось цифровое значение? Есть пронумерованное поле из 16 ячеек (1, 2, 3...16), необходимо, чтобы при нажатии любой ячейки, например, 3, вместо значения 3 появлялось любое другое значение от 1 до 9. Спасибо

[Elixi]

Сообщение от Wessx

Есть пронумерованное поле из 16 ячеек

не знаю где оно у вас, у меня в ячейках "E7:E22"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("E7:E22")) Is Nothing Then
        If IsNumeric(Target.Value) Then
            Randomize
            Target.Value = Int((9 * Rnd) + 1)
        End If
    End If
End Sub