highlight cells then change their values

[lezawang]

Hi

I want to select/highlight random cells in a table then multiply them by 20% and then update these cells value. for example

A1 = A1 * 20%

Then after the update, I want to be able to highlight or select or point to the cells that I just changed their values. Similar idea to the Formula Auditing Precedents tool. Or just highlight them. is that possible?

Thank you so much.

97	58	71	55	87	13
97	69	68	16	80	26
88	91	58	34	15	45
42	86	30	19	37	52
35	69	67	38	33	38
65	42	78	28	62	25
17	63	75	51	25	49
56	71	10	56	69	80

<colgroup><col width="64" span="6" style="width:48pt"> </colgroup><tbody>
</tbody>

 

[Fluff]

How about


Sub lezawang()
   Dim Rng As Range, Cl As Range
   For Each Rng In Selection.Areas
      For Each Cl In Rng
         Cl.Value = Cl.Value * 0.2
      Next Cl
      Rng.Interior.Color = 56789
   Next Rng
End Sub

 

[lezawang]

Thank you very much. That is what I was looking for. Thanks again

 

[Fluff]

My pleasure & thanks for the feedback