When I run the code below it says says the else:if part must be the first
statements on the line?

Dim iRow As String
Dim rtn As String
Dim cell As Range
Sub ShreveportNameDelete()

With Sheets("Shreveport")
For Each cell In .Range("$1:$1")
iRow = 0
rtn = iRow
On Error Resume Next
iRow = Application.Match(cell, Sheets("List").Range("$A:$A"), 0)
On Error GoTo 0
If cell = "TOTAL" Then
End
Else: If cell = Null Then
Resume Next
Else: If iRow = rtn Then
cell.EntireColumn.Delete
End If
Next cell
End With
End Sub

I am buying a VBA book at lunch (any ideas which would be good?) But I
would like to get this peice of code going so I can move on on this project.

Thanks.

Kevin Porter