ok...let me say up front, that I don't really know what I'm doing, but
everyone has to start somewhere. This is my first non-recorded macro.

I've created the following code. It seems to do what I want (because I can
watch what it's doing), except that it doesn't seem to END. I get an out of
stack space error. I'm sure this is some obvious mistake, but it eludes me.
Anyone know what i am doing wrong?

Sub eliminate_possabilities()

Dim solutions As Range
Dim cell As Range
Dim before As Integer

before = Range("BG31").Value

Set solutions = ActiveSheet.Range("AF3:BF29")
For Each cell In solutions
If cell.Value = 1 Then
cell.Offset(0, -30).ClearContents
Else:
End If
Next cell

Call CheckForChanges
End Sub

Sub CheckForChanges()

Dim after As Integer

after = Range("BG31").Value

If after before Then
Call eliminate_possabilities
Else:
End If
End Sub