Sub addNumber()
Dim rng As Range
Dim i As Integer
i = InputBox("Enter number to multiple", "Input Required")
For Each rng In Selection
If WorksheetFunction.IsNumber(rng) Then
rng.Value = rng + i
Else
End If
Next rng
End Sub
VBA Macro Code to Add a Number in all the Numbers in Excel
Just like multiplying you can also add a number into a set of numbers.














