Macro for data manipulation

In the DeDupe procedure:

        If arrCompare(lngRow, 1) = strCompare Then
            If strCompare > "" Then
                arrText(lngRow, 1) = ""
            End If
        Else

or

        Else
            If arrCompare(lngRow, 1) > "" Then
                strCompare = arrCompare(lngRow, 1)
            End If
        End If

Either one will work.

Perfect!!!!

Thanks
Dave