Help Tweaking My Code

[Dazzawm]

The code listed below is a macro to highlight what is on sheet 2 but not on sheet 1 within a workbook. Because there is a lot of data to look at it is taking about an hour to finish!

If the code was tweaked to look at a specific column on sheet 1 that I can change everytime would this speed it up?

If so, could someone amend the code to say look at column 'H' in this instance.

Sub dazzawm()
Dim c As Range, Found As Range
With Sheets("Sheet2")
For Each c In .UsedRange
Set Found = Sheets("Sheet1").UsedRange.Find(what:=c.Value)
If Found Is Nothing Then c.Interior.ColorIndex = 3
Next c
End With
End Sub

 

[Dazzawm]

That code is a lot quicker, thanks.