deleting full columns based on content of a cell

[cresswell80]

hi all,

i'm trying to write code that deletes a full column whenever a £ sign crops up in row 16... can anyone tell me what's wrong with the following:

Public Sub DELCOLS()



For intcount = 1 To 300

    

If InStr(1, Cells(16, intcount), "£") > 0 Then

    Columns(1, intcount).EntireColumn.Delete
        
End If


Next intcount

End Sub

thanks

 

[GlennUK]

Well, you are searching through 300 columns ( there are only 256 in Excel!!!! ), and you need to change
Columns(1, intcount).EntireColumn.Delete
to
Cells(1, intcount).EntireColumn.Delete

 

[clausboss]

Hi if i want to hide it and not delite it what is the code?

and if it is lines and not collums have do i change it?

 

[GlennUK]

Hi clausboss, you'd be better of starting a new thread rather than tagging questions on to someone elses, but, here goes ... Hidden = True is the property to change for Row objects.