Deleting column based off special character

[aka_krakur]

I have a spreadsheet that is brought in by a comma delimin drill down (an online Intranet tool at my work).
This is pretty much how it looks (minus the bolded columns; I made them bold to emphasize the columns I want to delete)
I want a simple button driven macro that automatically deletes columns based off of if Row 3 does not contain a "/" I've done it before on rows, but I looked at the code and couldn't figure out how to tweak with it for use with columns.

here's my example:

[HTML removed by admin]

 

[erik.van.geit]

Hi,

perhaps this ?

Sub test()

Dim LC As Integer
Dim i As Integer

LC = Cells(3, Columns.Count).End(xlToLeft).Column

Application.ScreenUpdating = False

    For i = LC To 1 Step -1
    If InStr(1, Cells(3, i), "/") = 0 Then Cells(3, i).EntireColumn.Delete
    Next i

Application.ScreenUpdating = True

End Sub

kind regards,
Erik

 

[aka_krakur]

Worked except somehow it even deleted Column 1 (which contains the part nos.) Need to keep that.

 

[erik.van.geit]

Worked except somehow it even deleted Column 1 (which contains the part nos.) Need to keep that.

step through code using key F8 & see what happens
you'll find where to edit
possibly without internet-connection within 2 hours till 22th sept