Sletning af række

Hej
Har tidliger brugt denne kode til at slette en excelrække hvis der var et bestemt varenummer i kollone B.
------
Sub SletRækken()
    Dim RW As Long, I As Long
    RW = Range("B65536").End(xlUp).Row  ' finder den sidste række med data
    Application.ScreenUpdating = False    ' slår skærmopdateringen fra
    For I = RW To 1 Step -1  ' fra den sidste række , der er fundet i kolonne B til nr.1
        If Cells(I, "B") = 236 Then    ' hvis værdien er 236
            Cells(I, "B").EntireRow.Delete  ', så slettes rækken
        End If
    Next I
    Application.ScreenUpdating = True    ' slår skærmopdateringen til igen
End Sub
----
Men nu skal jeg slette en række hvis værdien er "CM - 100" og så virker koden ikke.

Er der nogen som har forslag