Help with IF Else:IF statement
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 |
All times are GMT +1. The time now is 05:32 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com