This will produce a list of addresses with conditional formats in column A.
Right click your sheet tab, view code and paste it in.
Sub marine()
x = 1
Set myrange = Cells.SpecialCells(xlCellTypeAllFormatConditions)
For Each c In myrange
Cells(x, 1).Value = c.Address
x = x + 1
Next
End Sub
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.