Sub ShowDependents()
'
For Each cell In Selection
cell.ShowDependents
Next cell
End Sub
Sub ShowPrecedents()
'
For Each cell In Selection
cell.ShowPrecedents
Next cell
End Sub
--
Regards
Ken....................... Microsoft MVP - Excel
Sys Spec - Win XP Pro / XL 97/00/02/03
-------------------------------------------------------------------------- --
It's easier to beg forgiveness than ask permission

-------------------------------------------------------------------------- --