Circular Reference Warning

[R Tanner]

Hi,

I am getting a circular reference warning with my workbook when I open
it up. There are no indicators as to where the circular reference is
and it is a very big workbook. I have been doing alot of programming
with it - more programming than formulas. Any ideas how I can trace
it down?

Thanks

 

[ricardo.rietveld]

You can try using something like this:

As Worksheets("Sheet1").CircularReference only selects the first one
has to clear (content) of the found ref cell.

Sub FindCirRef()

Dim RefCell As Range
Dim Counter As Long

For Counter = 1 To 4

Set RefCell = Worksheets("Sheet1").CircularReference
RefCell.Copy
Worksheets("Sheet2").Cells(Counter, 1).PasteSpecial
Paste:=xlPasteFormulas
Worksheets("Sheet2").Cells(Counter, 2).Value = CStr(RefCell.Address)
RefCell.ClearContents

Next Counter

End Sub