RE:macro de busqueda y eliminar
Hola, te mando el macro y espero que funciona bien :)
Sub Buscar_y_Eliminar()
Dim DFila, Hfila, DColumna, HColumna, Palabra
Palabra = "ASD"
DFila = 1
Hfila = DFila
Do While Cells(Hfila, 1) <> Empty
Hfila = Hfila + 1
Loop
Hfila = Hfila - 1
DColumna = 1
HColumna = DColumna
Do While Cells(1, HColumna) <> Empty
HColumna = HColumna + 1
Loop
HColumna = HColumna - 1
borrador = 1
With Range(Cells(DFila, DColumna), Cells(Hfila, HColumna))
Do While borrador <> 0
Set c = .Find(Palabra, LookAt:=xlWhole)
If Not c Is Nothing Then
Columns(c.Column).Delete
borrador = 1
Else
borrador = 0
End If
Loop
End With
End Sub
Un saludo desde Ambato, Ecuador
SCM