Macro to trace dependents for a range of cells

 Sub TraceDependents()

'updateby Extendoffice

    Dim xRg As Range

    Dim xCell As Range

    Dim xTxt As String

    On Error Resume Next

    xTxt = ActiveWindow.RangeSelection.Address

    Set xRg = Application.InputBox("Please select the data range:", xTxt, , , , , 8)

        If xRg Is Nothing Then Exit Sub

    For Each xCell In xRg

        xCell.ShowDependents

    Next

End Sub

Source: https://www.extendoffice.com/documents/excel/3402-excel-trace-dependents-multiple-cells.html