Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim origVal As Integer
    Dim addVal  As Integer

    Dim targetRange As Range

    Set targetRange = Target(1, 1)

    origVal = targetRange.Value
    addVal = InputBox("Enter number to add")

    targetRange.Value = origVal + addVal


End Sub