Adding history to link follower

I had this question appropriately answered. Macro to follow links.

Can someone modify this to track a history so that If I go a few files deep into tracking the links I can retrack back to the original cell?
LVL 43
Saqib Husain, SyedEngineerAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Rgonzo1971Commented:
Hi,

pls try in a normal module

Sub GoTowards()
    If Breadcrumbs Is Nothing Then
    Set Breadcrumbs = New clsBreadcrumbs
    End If
    Set OrigRng = ActiveCell
    Breadcrumbs.Add ActiveCell
    For Each varLink In ActiveWorkbook.LinkSources(xlExcelLinks)
        If InStr(1, Replace(OrigRng.Formula, "[", ""), varLink) > 0 Then
                Workbooks.Open varLink
        End If
    Next varLink
    ActiveCell.ShowPrecedents
    OrigRng.NavigateArrow TowardPrecedent:=True, ArrowNumber:=1, LinkNumber:=1
    On Error Resume Next
    Workbooks(OrigRng.Parent.Parent.FullName).Worksheets(OrigRng.Parent.Name).ClearArrows
    On Error GoTo 0
End Sub
Sub GoBack()
    If Breadcrumbs.Count > 0 Then
        Set OrigRng = Breadcrumbs.Item(Breadcrumbs.Count).rng
        Breadcrumbs.Remove Breadcrumbs.Count
        Windows(OrigRng.Parent.Parent.Name).Activate
        Worksheets(OrigRng.Parent.Name).ClearArrows
        Sheets(OrigRng.Parent.Name).Activate
        Range(OrigRng.Address).Activate
    End If
End Sub

Open in new window

in class module named clsBreadCrumb
Public rng As Range

Open in new window

in a class module named cls Breadcrumbs
Public Breadcrumbs As New Collection
Sub Add(myrng As Range)
Dim b As New clsBreadcrumb
Set b.rng = myrng
Breadcrumbs.Add b
End Sub
Property Get Count() As Long
Count = Breadcrumbs.Count
End Property
Property Get Item(NameOrNumber As Variant) As clsBreadcrumb
Set Item = Breadcrumbs(NameOrNumber)
End Property
Sub Remove(NameOrNumber As Variant)
Breadcrumbs.Remove NameOrNumber
End Sub

Open in new window

Regards
EE20160329.xlsm

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Martin LissOlder than dirtCommented:
I've requested that this question be closed as follows:

Accepted answer: 500 points for Rgonzo1971's comment #a41526915

for the following reason:

This question has been classified as abandoned and is closed as part of the Cleanup Program. See the recommendation for more details.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Excel

From novice to tech pro — start learning today.