The following code is wrapped in code tags to see if they parse correctly
Code:
Public Sub CompareText()
'------------------------------
'DECLARE AND SET VARIABLES
Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet, ws4 As Worksheet
Dim cell As Range, ignorelist As Range
'Set dnary = CreateObject("Scripting.Dictionary")
Set ws1 = Worksheets("Main")
Set ws2 = Worksheets("TOCOMP")
Set ws3 = Worksheets("Result")
Set ws4 = Worksheets("IGNORE LIST")
Accept = False
CancelRun = False
Matches = 0