Add value of (1) to a selected cell or cells

[Coaxis]

I'm comfortable with excel and formulas but never used any of th
developer features.

Can anyone tell me how I could:
click a button I have created on the sheet that will change the value o
highlighted cells to the value (1) and fill the cells with a color?

In my head this is how it would work:
1) highlight a group of cells
2) Click the button
All highlighted cells would now contain the value 1 and be fille
yellow.

I can create the button and assign a macro to it. I just have no ide
how to write the macro, or if its even possible.

I'm open to other ideas if I am going about this all wrong

 

[Gord Dibben]

Sub One_And_Color()
Dim rng As Range
Set rng = Selection
With rng
.Value = 1
.Interior.Color = vbYellow
End With
End Sub


Gord

 

[Coaxis]

Worked perfectly! just as I described.

Thanks for your help Gord