Change Color in Cell on Click

[Ange Kappas]

Hi All,
I know this must sound stupid, but could anyone give me a
hint on how I can change the color of a cell automatically just by clicking
in it.
What I'm trying to make is a Grid with 90 Cells for a Bingo Presentation
where there is number 1 to 90 all pre formatted at the same size cells and
just by clicking on the cell with the particular number it will change from
white lets say to yellow.

Thanks all
Ange

 

[Bob Phillips]

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const WS_RANGE As String = "A1:I10"

If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
Target.Interior.ColorIndex = 6
End If
End Sub


Just change A1:I10 to your particular range.

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)