Macto to delete Columns in row 1 on all sheets containing YTD

[Howardc1001]

I have code below, which I need amended to only delete the columns on all sheets containing YTD in row 1

the code is deleting all the columns except the columns containing YTD in row 1

 Sub YTD_Text()
  
   Dim ws As Worksheet, x
    For Each ws In Worksheets
        x = ws.Range("c1").Resize(, ws.Cells.SpecialCells(11).Column).Address(0, 0)
        x = Filter(ws.Evaluate("if(iserror(search(""ytd""," & x & ")),address(1,column(" & x & "),4))"), False, 0)
        If UBound(x) > -1 Then ws.Range(Join(x, ",")).EntireColumn.Delete
    Next

End Sub

it would be appreciated if someone could kindly assist me

[jindon]

replace "iserror" with "isnumber"

[Howardc1001]

Thanks Jindon

it works perfectly

[Howardc1001]

Hi Jindon


I run this on another workbook where I have several sheets and I get a run time error below


"The item with the specified name was not found" and the code below is highlighted

    If UBound(x) > -1 Then ws.Range(Join(x, ",")).EntireColumn.Delete

Kindly amend code

[jindon]

Can you post that workbook?

[Howardc1001]

Hi Jindon


Please find sample data where run time error occurring


Kind test & correct

[jindon]

Why did you change False to True?

        x = Filter(ws.Evaluate("if(isnumber(search(""ytd""," & x & ")),address(1,column(" & x & "),4))"), True, 0)

[Howardc1001]

Sorry I amended this as I wanted to test something and forgot to change it back to false

[jindon]

ws.Evaluate("if(isnumber(search(""ytd""," & x & ")),address(1,column(" & x & "),4))")

will generate the array with the cells address like A1, B1, C1..(for the cell that contains "ytd") and False(for the cell that doesn't contain "ytd").
So, need to filter out "False" via Filter Function and last 0 means actually "False" for excluding from the array.
So that the result after the filter function is only Array of cells address.

[Howardc1001]

Many thanks for the updated code and explanation