I have a bunch of cells that are a myriad of different colors. I basically want to select two colors and everything that isn't one of those two colors needs to be no fill. I wrote something but it's not exactly working. here's what I've got
Public Sub RevChange()
Dim Input1 As Range
Dim input2 As Range
Dim Address1 As String
Dim Address2 As String
Set Input1 = Application.InputBox _
(Prompt:="Select the current revision color.", _
Title:="Row Input Cell", Type:=8)
Address1 = Input1.Address
revc = Range(Address1).Interior.Color
Set input2 = Application.InputBox _
(Prompt:="Select the color of the room row", _
Title:="Row Input Cell", Type:=8)
Address2 = input2.Address
roomc = Range(Address2).Interior.Color
For Each cell In Range("E3:E10")
If cell.Interior.Color <> revc Or cell.Interior.Color <> roomc Then
cell.Interior.ColorIndex = xlNone
End If
Next cell
End Sub
Bookmarks