Hello
I have just recently been helped with code to transfer rows of information with red font (a date in column D) to a target sheet (same workbook) by a very helpful member here. It works great when i change the font manually.
However, after using conditional formatting to change the cells to a red font the code doesnt recognise it and no information gets transferred to the target sheet. (thought id give my previous expert assistant a break )

Any suggestions

Thanks

The code i am using:

Option Explicit

Sub ExtrCol()

Dim cell As Range
Dim ws As Worksheet
Sheets("Expired").Activate
ActiveSheet.UsedRange.Offset(1).Rows.Delete

For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Expired" Then
    ws.Activate
    For Each cell In Range("D2:D" & Range("D" & Rows.Count).End(xlUp).Row)
    If cell.Font.Color = vbRed Then
        Range(cell.Offset(0, -3), cell).Copy
        Sheets("Expired").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll
    End If
    Next
End If
Next ws
  
Application.CutCopyMode = False

Sheets("Expired").Activate

End Sub