Hello... I have a workbook with 5 tabs, none of which have a significant amount of data (less than 50 rows/10 columns in all but 1, which has about 121,000 rows and 2 columns). There is also 1 form.
The functionality in the workbook has been spot on, but when I add a process to remove items from a blacklist (hard coded for now), I get the Out of Memory error. When I comment it out, everything works fine. Uncomment, and every macro results in the error. I don't see anything egregious here, but maybe one of you has a better idea?
Sub removeblacklist()
Dim myrange As Range
Dim cell As Range
Dim lastrow As Integer
Application.ScreenUpdating = False
Sheets("Output").Select
lastrow = Cells.SpecialCells(xlCellTypeLastCell).Row
Set myrange = Range("C4:C" & lastrow)
For Each cell In myrange
If cell.Offset(0, -1) = "TOPIC" Then
If Not IsError(Application.Match(cell.Value, Sheets("Blacklist").Range("A:A"), 0)) Then
cell.Offset(0, 1) = "ON LIST"
Else
cell.Offset(0, 1) = "NOT ON LIST"
End If
End If
Next cell
End Sub
Thanks for having a look.
Bookmarks