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.