a = 65
b = 1
c = 65
q = 2
While q <= i
	'Sätt ihop en möjlig location i "cell"
	If b < 10 Then
		cell = Chr(a) & "0" & CStr(b) & Chr(c)
	Else
		cell = Chr(a) & CStr(b) & Chr(c)
	End If
	Cells(summa, 1).Value = cell

	'Kontrollera om du nuvarande cell är här
	If Worksheets("data").Cells(q, 7).Value = cell Then
		'Är osäker på om detta är okej, men vill iallafall öka värdet i cellen med ett
		Cells(summa, 2).Value = Cells(summa, 2).Value + 1

		'Öka q med 1 (gå till nästa cell)
		q = q + 1
	Else
		'Nähä, det var inte rätt. Men då måste det vara någon senare location
		summa = summa + 1
		c = c + 1
		If c > 74 Then
			c = 65
			b = b + 1
		End If
		If b > 12 Then
			b = 1
			a = a + 1
		End If
		If a > 90 Then
			Exit While
		End If

	'Nu fortsätter loopen. Antingen hittade vi rätt, och vi kollar om nästa cell är av samma typ.
	'Annars var det inte rätt, och då kollar vi om samma cell är av nästa typ.
	'Detta fungerar bara om vi listan är sorterad.
End While