Replace Cell References In Formulas With Their Actual Value

[Rick Rothstein]

There's another property

Sub M_snb()
      For Each it In Sheets("sheet3").Cells(1).Precedents
         x3 = it.Address
      Next
End Sub

That only works for cells on the same sheet as the formula whose Precedent Cells you are evaluating... the Precedents property does not directly identify cells located on other worksheets; hence, the need to use the NavigateArrow property in order to trace each line onto the worksheet it is pointing to.