ExcelBanter - View Single Post

tris55

I have now solved the issue.

For those interested the new code was:

Code:

Dim dup As Object
        Set dupRange = Range("B5:B" & r - 1)
        dupSearch = Cells(r, 2)
            
        dupRange.Select
    
        Set dup = Selection.Find(What:=dupSearch, After:=ActiveCell, LookIn:=xlValues, _
            LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False)
            If dup Is Nothing Then
                Resume Next
            End If

Quote:

Originally Posted by tris55

I am still having issues with this problem, if there is an alternative method of checking the range for a duplicate value I would be happy to use that.

Thank you for your time,

Tristan