ELIMINAR COLUMNAS CON CRITERIO

[xinortiz]

Buenos días estimados amigos

necesito de su apoyo incondicional para este caso.

resulta que tengo una hoja con 900 columnas aprox.  De esa hoja quiero eliminar todas las columnas (a partir de la columna 3) que en la fila 2 no contenga  el texto "Chiclayo"

lo intento hacer de esta manera: pero no resulta

Dim COL As Integer
    COL = 2
    Do While Cells(3, COL) <> ""
         If Cells(2, COL).Value <> "*" & Chiclayo & "*" Then
                  Cells(3, COL).EntireRow.Delete
         COL = COL - 1
         End If
         COL = COL + 1
    Loop

Espero me puedan ayudar

 

Muchas gracias de Antemano

* No puedo subir archivo de prueba

 

 

[Antoni]

Sub EliminarColumnasNoChiclayo()
Application.ScreenUpdating = False
For y = Cells(2, Columns.Count).End(xlToLeft).Column To 3 Step -1
   If Not Cells(2, y) Like "*Chiclayo*" Then Columns(y).Delete
Next
End Sub

 

[xinortiz]

Muchas Gracias Antoni