This code worked fine in 03 at which time the sumcolor UDF was a module
within the workbook. When we went to 07, we made the UDF an .xlam add-in so
it would be available to all workbooks.

Now when we run the code in 07, the code appears to envoke the sumcolor UDF
at the goal seek section...but there are no UDF functions in any of the
ranges that the macro is in.


Sub GoalSeekPrinPaid()

Dim r As Integer, i As Integer
r = 71
Cells(45, r).Select

Do
r = r + 1

If Cells(45, r) < "end" Then

'goal seek
'set cell range (row 45) to 0 by adjusting 100% (row 70)
Cells(45, r).GoalSeek Goal:=0, ChangingCell:=Cells(70, r)

End If

Loop Until Cells(45, r + 1) = "end"

End Sub