Delete Columns with Condition

[mucah!t]

Hi all,

I'd like to delete [in VBA] columns D:J except for the column with the value "import" in row 2.
The value "import" however is not always in the same row [never in A:C though]

Any ideas?

Excel Workbook
	A	B	C	D	E	F	G	H	I	J
1	test
2	ghj	goh	jkhhj	opikj	ghkj	uij	import	jhkg	gfjhg	l;kj
3
4
5
Sheet1

Excel 2003

 

[VoG]

Try

Sub DelCol()
Dim i As Long, Found As Range
Set Found = Columns("D:J").Find(what:="import", LookIn:=xlValues, lookat:=xlWhole)
For i = 10 To 4 Step -1
    If i <> Found.Column Then Columns(i).Delete
Next i
End Sub

 

[Mike Blackman]

Hi,

Try,

Sub RemoveColumns()

    Dim lngColumn As Long
    
    For lngColumn = 10 To 4 Step -1
        If Cells(2, lngColumn) <> "Import" Then Columns(lngColumn).Delete
    Next lngColumn

End Sub

 

[mucah!t]

Thanks guys,

I used VoG's code, works great!