Greetings people better than excel at me,

Please see below code, laugh and then tell me what I am doing wrong.

Code clip goal:
Goal of the code below is simply color a cell and then turn around and tell me that the cell is colored... and it only works for color=1 and nothing else.

Overall goal:
I have a huge number of tables. I need to run through and if a cell is colored light red (color = 9737946) then take the value of that cell and append a "***" to the end of the value in the table. Seems simple enough...

Many thanks for the help! Nate

Sub fixtables()
Dim i, j, k, L As Integer
Dim coln, rown, colorcell As Integer
Dim cellcon As String

colorcell = 1000

' just want to color a cell so i can test the check of the color below
Range("C1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = colorcell
.TintAndShade = 0
.PatternTintAndShade = 0
End With
' check the color and see if i can determine the cell color
Cells(1, 3).Select
cellcon = Cells(1, 3).Value
If Selection.Interior.ColorIndex = colorcell Then '1%, red
MsgBox ("You got a 1%'er; its in cell" & rown & ", " & coln)
Else
MsgBox ("Nope, value is " & cellcon)
End If
End Sub