Private Sub CheckGoalSeekAN24_AN33()

If Range("C24").Value = 0 Then
Range("AH23").GoalSeek Goal:=0, changingCell:=Range("AI23")
Range("D24").Value = Range("AI23")

ElseIf Range("C24").Value = 1 Then
Range("AH24").GoalSeek Goal:=0, changingCell:=Range("AI24")
Range("D24").Value = Range("AI24")

ElseIf Range("C24").Value = 2 Then
Range("AH25").GoalSeek Goal:=0, changingCell:=Range("AI25")
Range("D24").Value = Range("AI25")

ElseIf Range("C24").Value = 3 Then
Range("AH26").GoalSeek Goal:=0, changingCell:=Range("AI26")
Range("D24").Value = Range("AI26")

ElseIf Range("C24").Value = 4 Then
Range("AH27").GoalSeek Goal:=0, changingCell:=Range("AI27")
Range("D24").Value = Range("AI27")

ElseIf Range("C24").Value = 5 Then
Range("AH28").GoalSeek Goal:=0, changingCell:=Range("AI28")
Range("D24").Value = Range("AI28")

ElseIf Range("C24").Value = 6 Then
Range("AH29").GoalSeek Goal:=0, changingCell:=Range("AI29")
Range("D24").Value = Range("AI29")

ElseIf Range("C24").Value = 7 Then
Range("AH30").GoalSeek Goal:=0, changingCell:=Range("AI30")
Range("D24").Value = Range("AI30")

ElseIf Range("C24").Value = 8 Then
Range("AH31").GoalSeek Goal:=0, changingCell:=Range("AI31")
Range("D24").Value = Range("AI31")

ElseIf Range("C24").Value = 9 Then
Range("AH32").GoalSeek Goal:=0, changingCell:=Range("AI32")
Range("D24").Value = Range("AI32")

End If

End Sub