Add value to several cells at the same time

[heideway]

Hi,

I want to be able to select a number of cells, say J1, H5 and G6 (ctrl-click) and add a value to all 3 cells using VBA. eg I want to add 35 to each value in each cell selected.

Thanks in advance
Pete

 

[VoG]

Try this

Sub AddEm()
Dim c As Range
For Each c In Selection
    c.Value = c.Value + 35
Next c
End Sub

 

[Yahya]

try this code

Sub Test()
Dim C As Range
For Each C In Selection
    C.Value = C.Value + 35
Next C
End Sub

 

[Yahya]

sorry Peter
same code at same time

 

[VoG]

No problem.

Anyway, they are different - I used c and you used C

 

[heideway]

Thanks once again fro the quick response.

Hopefully one day I will be able to post something that someone can find useful.

Pete

 

[Yahya]

No problem.

Anyway, they are different - I used c and you used C

there is another difference
your sub AddEm
My Sub Test