Sub Tour()
Dim Sol(5) As String
Dim i As Integer
Dim Van As Integer
Dim Naar As Integer
Dim U As Integer
Dim Length As Integer
Dim F As Integer
F = 4 * 3 * 2 * 1
U = 5
Length = 0
For i = 0 To 5
Sol(i) = Cells(i + 3, 11)
Next i
For i = 0 To 4
    Van = Sol(i)
    Naar = Sol(i + 1)
    Length = Length + Cells(Naar + 1, U + Van)
    If Range("L3") < Length Then
        Range("L3") = Length
    End If
Next i
End Sub