List of sheets referencing active sheet (dependent sheets)

Sub test()
   Dim ws               As Excel.Worksheet
   Dim wsR              As Excel.Worksheet
   Dim wsS              As Excel.Worksheet
   Dim r                As Excel.Range
   Dim c                As Excel.Range
   Dim lngRow           As Long


   Set wsS = ActiveSheet
   Set wsR = Worksheets.Add


   For Each ws In ThisWorkbook.Worksheets


      If ws.Name <> wsS.Name Then


         Set r = ws.UsedRange


         For Each c In r


            If InStr(1, c.Formula, wsS.Name & "!") > 0 Then   'references active sheet
               lngRow = wsR.Range("A" & Rows.Count).End(xlUp).Offset(1).Row


               wsR.Cells(lngRow, 1).Value = ws.Name
               wsR.Cells(lngRow, 2).Value = c.Address
               wsR.Cells(lngRow, 3).Value = Replace(c.Formula, "=" & wsS.Name & "!", vbNullString)


            End If
         Next
      End If
   Next
   Set r = wsR.Range("A1")
   
   With r
      .Resize(, 3) = Array("Sheet", "Cell", "Refers To")
      .Resize(, 3).Font.Bold = True
   End With


End Sub

Sub test()
    Dim oneCell As Range, DependantRange As Range
    Dim i As Long, j As Long
    Dim DependantSheets As New Collection
    Dim outString As String
    
    For Each oneCell In ActiveSheet.UsedRange
        oneCell.ShowDependents
        j = 0
        On Error Resume Next
        Do
            j = j + 1
            Set DependantRange = oneCell
            Set DependantRange = oneCell.NavigateArrow(False, 1, j)
            If Err = 0 Then
                DependantSheets.Add Item:=DependantRange.Parent, Key:=DependantRange.Parent.Name
            End If
        Loop Until DependantRange.Address(, , , True) = oneCell.Address(, , , True)
        On Error GoTo 0
    Next oneCell
    DependantSheets.Remove ActiveSheet.Name
    ActiveSheet.ClearArrows
    For i = 1 To DependantSheets.Count
        outString = outString & ", " & DependantSheets(i).Name
    Next i
    MsgBox Mid(outString, 2)
End Sub