you can do a for each cell in the range
Code:
For Each c In rng
 c.Value = c + mynumber
Next