Oh boy. Well now that I added the dropdown with conditional formatting the macro doesn't work anymore.
I think this might work, but I need it to say the equivalent of
WITH Application.Find
Clear
Interior.Characters = Missing
But obviously, that's not the way to write it. LOL
Sub test()
Dim r As Range, ff As String, x As Range
With Application.FindFormat
.Clear
.Interior.Color = 255
End With
With Sheets("SN06209").Columns(9)
Set r = .Find("*", searchformat:=True)
If Not r Is Nothing Then
ff = r.Address: Set x = r
Do
Set x = Union(x, r)
Set r = .Find("*", r, searchformat:=True)
Loop Until ff = r.Address
x.EntireRow.Copy Sheets("Discrepancies").Cells(1)
End If
End With
End Sub
Bookmarks