Hi All,
When I run this code it does the exact opposite of what I want it do (if not contained in that character list then delete). So basically if it not in the character list then delete, but it if is in the character list it deletes....
Sub GetData()
Dim A As Long
Dim lngCounterStop As Long
lngCounterStop = Range("B2").End(xlDown).Offset(1)
A = 1
Do
A = A + 1
If Not Cells(A, 2).Value Like "[F*,H*,I*,K*,O*,Q*,U*,V*,X*,Y*,Z*,0*,1*,2*,3*,4*,5*,6*,7*,8*,9*]" Then
Rows(A).EntireRow.Delete
End If
Loop Until Cells(A, 2) = lngCounterStop
End Sub
Bookmarks