This is just the Shell. I need it to take the value of the variabl
FTime and be able to goto that row and select. Then Select all rows t
the value of STime. I haven't included the loop to find the last row.

Thanks,
Craig Schellenbach





Public Sub InputRoute()
Dim Route As Long
Dim RouteCnt As Integer

Columns("A:A").Select
ActiveCell.Offset(1, 0).Select

Route = InputBox("Please Enter route", "Route Selection")

If ActiveCell = Route Then
Call RouteCount

Else
ActiveCell.Offset(1, 0).Select

Do Until ActiveCell = Route
ActiveCell.Offset(1, 0).Select
Loop

Call RouteCount

End If



End Sub
Public Sub RouteCount()
Dim FTime As Integer
Dim STime As Integer

FTime = ActiveCell.Row

MsgBox (FTime)

End Su

--
Drrott
-----------------------------------------------------------------------
Drrott1's Profile: http://www.excelforum.com/member.php...fo&userid=1546
View this thread: http://www.excelforum.com/showthread.php?threadid=27048