Sub leiaTeekond3()
   Dim ootel As Collection
   Set ootel = New Collection
   kuhu = Int(InputBox("kuhu"))
   vastusetulp = 8
   Columns(vastusetulp).Clear
   Cells(kuhu, vastusetulp) = kuhu
   ootel.Add kuhu
   Do While ootel.Count > 0
    uuritav = ootel.Item(1)
    ootel.Remove 1
    veerunr = 1
    Do While Len(Cells(uuritav, veerunr)) > 0
     kust = Cells(uuritav, veerunr)
     If Len(Cells(kust, vastusetulp)) = 0 Then
        Cells(kust, vastusetulp) = uuritav
        ootel.Add kust
     End If
     veerunr = veerunr + 1
     DoEvents
    Loop
   Loop
   kust = Int(InputBox("Kust?"))
   If Len(Cells(kust, vastusetulp)) = 0 Then
     MsgBox "Teekond puudub"
     Exit Sub
   End If
   teekond = kust
   Do While Not kust = kuhu
      kust = Cells(kust, vastusetulp)
      teekond = teekond & " " & kust
   Loop
   MsgBox teekond
End Sub


Sub leiaTeekond4()
   Dim andmeleht As Worksheet
   Dim vastusteleht As Worksheet
   Dim ootel As Collection
   Set ootel = New Collection
   Set andmeleht = Sheet2
   Set vastusteleht = Worksheets.Add
   kuhu = 1
   Do While Len(andmeleht.Cells(kuhu, 1)) > 0
      vastusteleht.Cells(kuhu, kuhu) = kuhu
      ootel.Add kuhu
      Do While ootel.Count > 0
        uuritav = ootel.Item(1)
        ootel.Remove 1
        veerunr = 1
        Do While Len(andmeleht.Cells(uuritav, veerunr)) > 0
           kust = andmeleht.Cells(uuritav, veerunr)
           If Len(vastusteleht.Cells(kust, kuhu)) = 0 Then
             vastusteleht.Cells(kust, kuhu) = uuritav
             ootel.Add kust
           End If
           veerunr = veerunr + 1
        Loop
      Loop
      kuhu = kuhu + 1
   Loop
End Sub