Question : Solving a puzzle geocache

I am trying to solve a puzzle geocache. Does anyone have any idea where to start?

Here is the link to the page.

http://www.geocaching.com/seek/cache_details.aspx?guid=c9cedb13-a1f7-4a56-8ff9-35e748bc23c2&log=y&decrypt=

The Quick Brown Fox

N 44° 20.403 W 074° 21.042

First things first, the cache is not located at the given coordinates; they simply provide you with a nice place to park and think and work out the cryptogram below. The cache is between 0.25 miles and 6.50 miles away from the original coordinates. I counted 18 kinds of trees between my car and the cache location, saw 3 kinds of birds, 4 types of animals tracks, and am 97% sure that I saw a bobcat. Good luck finding this cache, it's in some really beautiful woods.

1-4-1, 2-1-2, 3-2-6, 4-2-3, 1-8-4, 2-2-1, 3-12-4, 4-8-4, 1-1-2, 2-3-2, 3-2-3, 4-3-3, 1-8-7, 2-4-5, 3-6-2, 4-4-1, 1-2-2, 2-2-5, 3-7-1, 4-4-3, 1-2-5, 4-1-1, 2-1-3, 3-4-5, 1-2-1, 4-9-1, 3-2-2, 4-2-3, 3-4-1, 1-9-1, 2-4-3, 3-4-3, 3-19-1, 3-19-1, 2-5-3, 2-8-4, 2-5-2, 3-15-1, 3-26-2, 3-19-1, 4-11-1, 2-5-1, 3-26-2, 3-19-1, 2-5-3, 3-3-1, 2-5-2, 3-19-1, 2-5-4, 3-26-2

The cache container is is an ammo-can filled with trade items, a logbook, and a pencil.

Additional Hints (Encrypt)

You should be able to figure out this with a printout of the listing and a pencil

Answer : Solving a puzzle geocache

Here is one approach, results on sheet2.

                       
         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

           
           
             Sub x()

Dim oDic As Object, sNames() As String, vInput(), i As Long, n As Long

vInput = Sheet1.Range("A1", Sheet1.Range("C" & Rows.Count).End(xlUp)).Value
ReDim sNames(1 To UBound(vInput, 1), 1 To 3)
Set oDic = CreateObject("Scripting.Dictionary")

With oDic
    For i = 1 To UBound(vInput, 1)
        If Not .Exists(vInput(i, 1)) Then
            n = n + 1
            sNames(n, 1) = vInput(i, 1)
            sNames(n, 2) = vInput(i, 2) & "(" & vInput(i, 3) & ")"
            sNames(n, 3) = vInput(i, 3)
            .Add vInput(i, 1), n
        ElseIf .Exists(vInput(i, 1)) Then
            sNames(.Item(vInput(i, 1)), 2) = sNames(.Item(vInput(i, 1)), 2) & ", " & vInput(i, 2) & "(" & vInput(i, 3) & ")"
            sNames(.Item(vInput(i, 1)), 3) = sNames(.Item(vInput(i, 1)), 3) + vInput(i, 3)
        End If
    Next i
End With

Sheet2.Range("A1").Resize(n, 3) = sNames

End Sub

           
         