Hmm how abt if "." is just part of the string and is common with majority of the cells in column B. and these are the cells i wanna retain the remaining i wanna delete...I tried doing this but just not happening
[vba]Sub Delete()
Dim i As Integer, LastRow As Long
Sheets(1).Activate
LastRow = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
Const TEST_STRING As String = "."
For i = 1 To LastRow

If Not Right(Cells(i, "B").Value, Len(TEST_STRING)) = TEST_STRING Then
Rows(i).Select
Selection.Delete Shift:=xlUp
End If
Next i
End Sub[/vba]


since . is just part of a huge string.. i want to retain all those strings containing . in them and delete the rest which dont ve . in them

pl help