jmthompson
Well-known Member
- Joined
- Mar 31, 2008
- Messages
- 966
I created a template for a user at a different location to reformat information exported out an online tool we use. When she attempts to run this macro, she gets the following error:
Run time error: '2147352565(8002000b)':
Microsoft Excel cannot find any data to replace. Check if your search formatting and criteria are defined correctly. If you are sure that matching data exists in this workbook, it may be on a protected sheet. Excel cannot replace data on a protected worksheet.
I cannot recreate this error on my computer using the same exact data. The end user is running Excel 2002.Any ideas what might be causing this and how I can fix it? I cannot disturb the end user for a ton of testing, so I hope someone here can help!
Run time error: '2147352565(8002000b)':
Microsoft Excel cannot find any data to replace. Check if your search formatting and criteria are defined correctly. If you are sure that matching data exists in this workbook, it may be on a protected sheet. Excel cannot replace data on a protected worksheet.
I cannot recreate this error on my computer using the same exact data. The end user is running Excel 2002.Any ideas what might be causing this and how I can fix it? I cannot disturb the end user for a ton of testing, so I hope someone here can help!
Code:
Sub Sales_Tax_Macro1()
Application.ScreenUpdating = False
Sheets("Template").Select
Cells.ClearContents
Cells.ClearFormats
Sheets("Data Dump").Select
If Application.WorksheetFunction.CountIf(Range("I:I"), "00") > 0 Then
Range("I:I").Replace What:="00", Replacement:="0", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End If
If Application.WorksheetFunction.CountIf(Range("I:I"), "0.00") > 0 Then
Range("I:I").Replace What:="0.00", Replacement:="0", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End If
If Application.WorksheetFunction.CountIf(Range("I:I"), "0,0") > 0 Then
Range("I:I").Replace What:="0,0", Replacement:="0", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End If
If Application.WorksheetFunction.CountIf(Range("I:I"), "0.0") > 0 Then
Range("I:I").Replace What:="0.0", Replacement:="0", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End If
'copies needed columns from data dump to Filtered Data
Dim SiteCol As Range, Cell As Range
Dim wsDest As Worksheet
Dim i As Long
Set wsDest = Workbooks("Kalamazoo Tax Template.xls").Worksheets("Template")
i = wsDest.Cells(Rows.Count, 2).End(xlUp).Row
If (i = 2) And (wsDest.Cells(2, 1) = "") Then i = 0
Set SiteCol = Range("I2")
Set SiteCol = Range(SiteCol, Cells(Rows.Count, SiteCol.Column).End(xlUp))
For Each Cell In SiteCol.Cells
If Cell.Value = "0" Then
i = i + 1
wsDest.Cells(i, 1).Resize(1, 7) = Array(Cell.Offset(0, 3), Cell.Offset(0, -3), Cell.Offset(0, 13), Cell.Offset(0, 6), Cell.Offset(0, 7), Cell.Offset(0, -2), Cell.Offset(0, 10))
End If
Next
Sheets("Template").Select
Range("B:B").NumberFormat = "m/d/yyyy"
Range("C:C").NumberFormat = "0"
Columns("D:D").Insert Shift:=xlToRight
Range("D1").Select
ActiveCell.FormulaR1C1 = "Description"
Range("E:E").Insert Shift:=xlToRight
Range("E1").Select
ActiveCell.FormulaR1C1 = "Department"
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
With Range("E2:E" & lastRow)
.FormulaR1C1 = "=CONCATENATE(RC[+1],""-"",RC[+2])"
End With
Range("E:E").Value = Range("E:E").Value
Range("F:G").Select
Application.CutCopyMode = False
Selection.delete Shift:=xlToLeft
Range("F:F").Insert Shift:=xlToRight
Range("F1").Value = "Net Transaction Amount"
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
With Range("F2:F" & lastRow)
.FormulaR1C1 = "=(RC[+1]-RC[+2])"
End With
Range("F:F").Value = Range("F:F").Value
Range("G:H").Select
Application.CutCopyMode = False
Selection.delete Shift:=xlToLeft
Range("G:G").Insert Shift:=xlToRight
Range("G1").Select
ActiveCell.FormulaR1C1 = "Sales Tax Liability"
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
With Range("G2:G" & lastRow)
.FormulaR1C1 = "=6%*(RC[-1])"
End With
Range("A1").Value = "Vendor Name"
Range("B1").Value = "Post Date"
Range("C1").Value = "Invoice Number"
Range("A1").Select
Cells.Select
With Selection
.HorizontalAlignment = xlLeft
End With
Range("F:G").Style = "Currency"
Rows("1:1").Select
With Selection
.HorizontalAlignment = xlCenter
.WrapText = True
.RowHeight = 27
.Font.Bold = True
End With
Cells.Select
Cells.EntireColumn.AutoFit
Range("E:E, G:G").ColumnWidth = 11
Range("F:F").ColumnWidth = 14.5
Cells.Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
, Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False _
, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal
If Application.WorksheetFunction.CountIf(Range("C:C"), "00") > 0 Then
Range("C:C").Replace What:="00", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End If
If Application.WorksheetFunction.CountIf(Range("C:C"), "0.00") > 0 Then
Range("C:C").Replace What:="0.00", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End If
If Application.WorksheetFunction.CountIf(Range("C:C"), "0,0") > 0 Then
Range("C:C").Replace What:="0,0", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End If
If Application.WorksheetFunction.CountIf(Range("C:C"), "0") > 0 Then
Range("C:C").Replace What:="0", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End If
If Application.WorksheetFunction.CountIf(Range("C:C"), "cc") > 0 Then
Range("C:C").Replace What:="cc", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End If
Last = Cells(Rows.Count, "A").End(xlUp).Row
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "1-800 CONFERENCE" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "A & D MINI STORAGE*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "A & L JANITORIAL*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*PIZZA YEN*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*A-1 ENGRAVING*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*ADAMS REMCO*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*ADT*SECURITY SERVICES*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*ADVANCE AUTO PARTS*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*ADVERTISING AGE*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*AIR COMPONENTS*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*AIR ZOO*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*AIRGAS*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*ALL PHASE ELECTRIC*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*ALLTEL*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*ALRO STEEL CORPORATION*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*ALTA LIFT*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*AMBROSIA SOFTWARE*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "AMBS MESS*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*AMERICAN CANCER SOC*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*AMERICAN ONE BUSINESS*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*AMERICAN PRESS INST*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*AMERICAN SAFETY*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*AMERICAN SOC*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*APEX WEB*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*APL*APPLE*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*APPROVED FIRE PROTECTION*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*ARAMARK UNIFORM*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*ARCADIA HEALTHCARE*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*ARCADIA SERVICES*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*ASSNWOMENSPTSMEDIA*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*ASSOCIATED PRESS*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*ASTECH INTERMEDIA*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "AT&T*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "AUTOMATIC TRANSMISS*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "AUTOZONE*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "AVATAR DATA*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*HARROUN*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*B&W CHARTERS*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*BATTERIES PLUS*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*BATTLE CREEK ENQUIRER*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*BAUDVILLE*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*BDN INDUST HYGIENE*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*BEARING SERVICE*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*BEST BUY*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*BESTBUY*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*BEST CHOICE PRINTING*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*BIG APPLE BAGELS*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*BIG*LOTS*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*BILLS LOCK SHOP*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*BLIMPIE*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*BLOOMIN' SHOP*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*BLUE DOLPHIN*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*B-N-E PLASTIC PRODUCTS*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*BOGIE'S CAFE*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*BOTTCHER AMERICA CORP*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*BRESSER'S CROSS INDEX*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*BRINK'S*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*BRODART SUPPLIES*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*BRONSON PATIENT ACCTS*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*BUISTELECTR*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*BURDICK'S*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*BUTZEL LONG*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*C & M CATERING*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*C COMM OF KALAMAZOO*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*C L MAHONEY*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*CAGLE CARTOONS*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*CARLSON MARKETING*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*CASH REGISTER SALES*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*CBI*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*CDW DIRECT*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*CENTRAL CITY PARKING*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*CENTRAL INK*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*CENTRAL TILE & TERRAZZO*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*CENTRAL VACUUM*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*CENTRE STREET MARKET*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*CHARTER COMM*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*CHEMTREAT*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*CINTAS*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*CIRCUIT COURT*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*CLASSIFIEDS PLUS*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*CNP*CN PORTFOLIO*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*COBRA RESOURCES*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*COLUMBIA PIPE*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*COMIC PLUS*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*COMODO GROUP*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*CONSTANT CONTACT*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*CONSUMERS ENERGY*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*CONSENERGY*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*CONTINENTAL PRODUCTS*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*COP*COPLEY*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*CORECOMM ISP*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*COREYS BOOTERY*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*CORNELIUS SYS*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*CORP EX*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*COYNE TEXTILE*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*CRAIN'S DETROIT BUSINE*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*CROOKED LAKE MARKET*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*CROSS SELL*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*CUSTOMER SUPT CENTER*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*D AND R SPORTS*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*D J*WALL STREET JOURNAL*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*D&W*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*DAANE'S WINES & LIQUORS*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*DAIL PRINTING & ENGRAVING*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*DAVES GLASS*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*DAY INTERNATIONAL*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*DELL MARKETING*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*DEPT OF PUBLIC SERVICES*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*DGI*DYNAMIC GRAPHICS*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*DIGITAL HIGHWAY*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*DIRMARK*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*ACCURATELEADS*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*DISCOUNT-TIRE*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*DKS MECHANICAL*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*DLX BUSINESS*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*DMI* DELL GLOBAL ACCT*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*DODGE ENGINEERING*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*DOLRTREE*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*DON SEELYE FORD DAEWOOD*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*DOUGLAS & SON*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*DOW JONES TRAINING*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*DOWNTOWN DVPMT*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*DR. HOOKS*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*DYER AUTO BODY*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*DYNARIC*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*ECONOMIC ENGINE*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*EDUCATION WEEK*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*EDUCATION WRITERS*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*EDWARDS INDUSTRIAL SALES*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*ELEMENT K PRESS*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*ENOVATION GRAPHICS*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*ESPER ELECTRIC*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*EXCEL SYSTEMS*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "EXPERIENCE*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*EXTREME SALON*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*FASTSIGNS*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*FCC*FRANKLIN COVEY*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*FEDEX*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*FELPAUSCH*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*FENNER DRIVES*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*FLIERS UNDERGROUND SPRINK*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*FLUID CONNECTIONS*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*FOX PRINT DIRECT*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*FRIEDT*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*FTD*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*GALCO INDUSTRIAL*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*TRUE VALUE*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*GFS MKTPLC*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*GLOBAL CROSSING*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*GMA USERS GROUP*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*PIZZA*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*GONGWER NEWS SERVICE*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*GORDON WATER*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*GRAPHIC MANAGEMENT*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*GRAYBAR ELECTRIC*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*GREAT LAKES AUTOMATION*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*GREATER KALAMAZOO*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*GREENVILLE PRINTING*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
For i = Last To 2 Step -1
If (Cells(i, "A").Value) Like "*GYPSUM SUPPLY*" Then
Cells(i, "A").EntireRow.delete
End If
Next i
Range("A1").Select
Application.ScreenUpdating = True
End Sub