I can't get the correct Rows to delete

[churley5]

That depends on the code in Zip2Zip and what it does.

Here is the code:

[vba]Option Explicit
Sub calc()
Dim ws As Worksheet
Dim start As String
Dim dest As String
Dim miles As Double
Dim i As Integer
Sheets("Main").Select
With Range("A2")
For i = 0 To 3
start = .Offset(i, 0).Value
dest = .Offset(i, 1).Value
For Each ws In ActiveWorkbook.Worksheets
Application.DisplayAlerts = False
If ws.Name = "Temp" Then ws.Delete
Application.DisplayAlerts = True
Next
Worksheets.Add().Name = "Temp"
Sheets("Main").Select
Application.DisplayAlerts = False


ActiveWorkbook.XmlImport