Private Const OneSec = 1 / (24# * 60# * 60#)
Private Const mArrayStep = 1000

Private Function intCellAddress(R As Range) As String
    intCellAddress = R.Parent.Name & "!" & R.Address
End Function

Private Sub EnableScrollbars(Enable As Boolean)
    With ActiveWindow
        .DisplayHorizontalScrollBar = Enable
        .DisplayVerticalScrollBar = Enable
    End With
End Sub

Private Function GetDependentCells(myCell As Range) As Variant
    GetDependentCells = ""
    myCell.Parent.ClearArrows
    myCell.ShowDependents
    CellAddress = intCellAddress(myCell)
    
    EnableScrollbars False
    
    Dim ArraySize As Long, target As Range
    ArraySize = mArrayStep
    ReDim a(1 To ArraySize) As String
    
    i = 1
    k = 1
    tTime = Now()
    On Error GoTo l_exit
    Do
        myCell.NavigateArrow False, i
        Set target = myCell.NavigateArrow(False, 1, i)
        s = intCellAddress(target)
        i = i + 1
        If s <> 1 Then
            a(k) = s
            k = k + 1
            If k >= ArraySize Then
                ArraySize = ArraySize + mArrayStep
                ReDim Preserve a(1 To ArraySize)
            End If
        End If
        If (Now() - tTime) > OneSec Then
            Application.StatusBar = "Checking varaible '" & mVariable & "' usage: " & i
            DoEvents
            tTime = Now()
        End If
    Loop While True
l_exit:
    EnableScrollbars True
    myCell.Parent.ClearArrows
    
    ReDim Preserve a(1 To i - 1)
    GetDependentCells = a
End Function