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