Delete Columns based on Strings

S

scott

The below sub deletes rows containing strings. Can someone help me modify
it to delete columns if a string appears within the column?

Sub DeleteRowswString(ByVal sString As String)

Dim theRange As Range, nCells As Integer, I As Integer
Set theRange = Intersect(ActiveSheet.UsedRange.EntireRow, _
ActiveSheet.Columns(1)).Cells
nCells = theRange.Rows(theRange.Rows.Count).Row

For I = nCells To 1 Step -1
If Application.CountIf(Cells(I, 1).EntireRow, "*" & sString _
& "*") > 0 Then
Cells(I, 1).EntireRow.Delete
End If
Next

End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Looping Through Sheet 3
Looping through Sheet 5
Deleting Columns with String 2
Delete Column Containing String 3
Referring to same cells in all worksheets 2
InputBox for column letter problem 2
Code for duplicate rows? 5
Datavalidation with shrinking non blank values 1

Top