Delete columns with cells with the conditional formatting red
Solution 1:
Using the below code you can scrape cell color from conditional formatting:
Option Explicit
Sub test()
Dim Color As Long
With ThisWorkbook.Worksheets("Sheet2")
Color = .Range("D1").DisplayFormat.Interior.Color
End With
End Sub