ridiuclous....pops up when i insert rows (bottom left corner says "circular references"
but each sheet i go to there is no cell indicated
i tried even using this
but it finds nothing! freaking excel....
but each sheet i go to there is no cell indicated
i tried even using this
Code:
Sub Find_Circular_References_In_All_Worksheets()
Dim vItem, result, ws As Worksheet, sh As Worksheet, dRng As Range
Set sh = Sheets.Add(After:=Sheets(Sheets.Count))
Set dRng = sh.Range("A1")
sh.DisplayRightToLeft = False
For Each ws In ThisWorkbook.Worksheets
On Error GoTo errHandler
If ws.Name <> sh.Name Then
With ws
For Each vItem In .UsedRange
If Left(vItem.Formula, 1) = "=" Then
result = Intersect(.Range(vItem.Address), .Range(vItem.Precedents.Address))
dRng.Offset(, 0).Value = ws.Name
dRng.Offset(, 1).Value = vItem.Address(False, False)
dRng.Offset(, 2).Value = "'" & vItem.Formula
Set dRng = dRng.Offset(1)
End If
Skipper:
Next vItem
End With
End If
Next ws
sh.Columns.AutoFit
Exit Sub
errHandler:
Resume Skipper
End Sub
but it finds nothing! freaking excel....