FWIW - some coding 'best practices':
Note that row/col index Type is Long, NOT integer, even though your working
counter is within Int values
Note also that the string vars have "s" prefixes and route IDs are appended to
the var name.

The following is working in a mockup wb:

Option Explicit

Sub test()
Dim sRouteF$, sRouteC$, n&, k&

With Sheets("FleetSummary")
For n = 5 To 10
If .Range("H" & n) = "Y" Then
sRouteF = .Range("A" & n)
For k = 2 To 10
sRouteC = Sheets("Conversion").Range("A" & k)
If sRouteF = sRouteC Then
If testRouteSheet0rAdd(sRouteC) Then _
Call transferCommittedRoute(sRouteC, k)
End If 'sRouteF = sRouteC
Next 'k
End If '.Range("H" & n) = "Y"
Next 'n
End With 'Sheets("FleetSummary")
End Sub

Function testRouteSheet0rAdd(sRoute$) As Boolean
testRouteSheet0rAdd = MsgBox("Yes or No", vbYesNo) = vbYes
End Function

Sub transferCommittedRoute(sRoute$, Ndx&)
MsgBox "Transferred " & sRoute & ", " & Ndx, vbExclamation
End Sub

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion