Add a Number in all the Numbers
Just like multiplying you can also add a number into a set of
numbers.
Sub addNumber()
Dim rngAs Range
DimiAs 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
No comments:
Post a Comment