vba delete red column in entireworkbook at print area

[hematinsite]

hi dear
in excel 2019 , Is it possible to have a macro that in my entire workbook in any cell in print area , if red color font used , then delete entire columns . i have not use conditional formating font .
please help me .

 

[Logit]

.

Option Explicit

Sub test()

    Dim rng As Range, cell As Range
    Dim ws As Worksheet

    With ThisWorkbook

        For Each ws In .Worksheets
            With ws
                Set rng = .UsedRange

                For Each cell In rng
                    If cell.Font.Color = vbRed Then
                        cell.EntireColumn.Delete
                    End If
                Next cell
            End With

        Next ws

    End With

End Sub

 

[hematinsite]

hi dear
thx but show error after run in last line end with. this error is here :

compile error
expected end with

 

[Logit]

That is a warning that an END WITH statement does not exist in the code where it should be.

After looking at the posted code I do not see where that error exists.

Please check your copy / paste of the code.

 

[Logit]

Download example workbook : Delete Column Red Font.xlsm

 

[hematinsite]

thx but delete from cell to last left column . i shared excel file and if your vba worked , must delete d1 to n79 and r column. this is my sample excel file

 

[hematinsite]

thx but delete from cell to last left column . i shared excel file and if your vba worked , must delete d1 to n79 and r column. this is my sample excel file

i think in formula , i must use delete shift to left

 

[Logit]

.
Your original request does not match your last description or the workbook.

You stated "delete column". What you are really wanting is DELETE ROW.

So .. using your example workbook ... are you wanting the row DELETED ? Or are you wanting the data in those cells erased, resulting in blank cells ?

 

[hematinsite]

99% solved , after i deleted this line , then perfect worked
'If cell.Value = strToFind Then
'cell.Interior.Color = RGB(255, 0, 0)

whats do this line ?

and for continue , if i want 1-convert formula to their value in cell with green font and after convert , then 2-change green font to black font in their cell , how can with vba ?

 

[hematinsite]

thx dear
solved as fast as possible with you
thx