Precedents

[lgarcia]

I've tried to create a procedure to show in a form all the precedents o
a cell. When the precedents are in other sheet it doesn't work! Wha
can i do?


Folow Hereafter the code:

Private Sub UserForm_Activate()
Dim X
Dim Y

If ActiveCell.Value <> 0 Then

For Each X In Sheets("Market 1").Cells(14, 4).Precedents

Me.ListBox1.AddItem Sheets("SUM_MONTH").Cells(X.Rows, 1).Value

Next X

End If


End Su

 

[Dave Peterson]

You may want to look at how Stephen Bullen did it in his FindCirc
workbook/addin.

It's at:
http://www.BMSLtd.ie/Excel/Default.htm

Look for:
FindCirc.zip

 

[lgarcia]

Thank You!!