Comma not showing up...

[Skyybot]

Can anyone explain why the comma's aren't showing up here? I'm trying to remove rows with trailing comma's in description.
Option Explicit

Sub Remove_Trailing_Colon()
Dim wb As Workbook, sht As Worksheet, rng As Range, cell As Range, i As Long, lRow As Long
Set wb = ThisWorkbook: Set sht = wb.Sheets(2)
lRow = sht.Rows.End(xlDown).Row
Set rng = sht.Range("B2:B" & lRow)
For Each cell In rng
    Trim (cell.Value)
Next cell
For i = lRow To 2 Step -1
    If Right(sht.Cells(i, 2).Value, 1) = "," Then
        sht.Rows(i).Delete
    End If
Next i
End Sub

Part Number	Description
1393066	#10 SS FLAT WASHER, BLK OXIDE
14757	#10 SS FLAT WASHER,
14743	#10 SS SPLIT LOCK WASHER
15213	#10-32 SS ACORN NUT
15078	#10-32 SS FLANGE NUT
15108	#10-32 SS HEX NUT
17881	#10-32 SS PAN PH MS, 1 1/2"
17879	#10-32 SS PAN PH MS, 1"
17877	#10-32 SS PAN PH MS, 1/2"
17878	#10-32 SS PAN PH MS, 3/4"
53734	#10-32 STEEL RIBBED NUTSERT
14755	#6 SS FLAT WASHER,
14741	#6 SS SPLIT LOCK WASHER
15210	#6-32 SS ACORN NUT
15075	#6-32 SS FLANGE NUT
15104	#6-32 SS HEX NUT
17866	#6-32 SS PAN PH MS, 1 1/2"
17864	#6-32 SS PAN PH MS, 1"
17862	#6-32 SS PAN PH MS, 1/2"
17863	#6-32 SS PAN PH MS, 3/4"
29859	#6-32 WELL NUT
1399718	#8 PAN PH SM SCREW, 1 1/2", BLACK
1400513	#8 PAN PH SM SCREW, BLACK, 1"
1400511	#8 PAN PH SM SCREW, BLACK, 1/2"
1400512	#8 PAN PH SM SCREW, BLACK, 3/4"
14756	#8 SS FLAT WASHER,
14742	#8 SS SPLIT LOCK WASHER
15211	#8-32 SS ACORN NUT
15076	#8-32 SS FLANGE NUT
15106	#8-32 SS HEX NUT
17873	#8-32 SS PAN PH MS, 1 1/2"
17871	#8-32 SS PAN PH MS, 1"
17869	#8-32 SS PAN PH MS, 1/2"
17870	#8-32 SS PAN PH MS, 3/4"
53732	#8-32 STEEL RIBBED NUTSERT
14759	1/4" SS FLAT WASHER
14745	1/4" SS SPLIT LOCK WASHER
15214	1/4-20 SS ACORN NUT
15080	1/4-20 SS FLANGE NUT
14804	1/4-20 SS HEX BOLT, 1"
14800	1/4-20 SS HEX BOLT, 1/2"
14802	1/4-20 SS HEX BOLT, 3/4"
14772	1/4-20 SS HEX NUT
1399719	1/4-20 SS PAN PH MS, 1/2", BLACK
53735	1/4-20 STEEL RIBBED NUTSERT
1393067	1/4X20 FLAT WASHER, BLACK OXIDE
14761	3/8" SS FLAT WASHER,
14747	3/8" SS SPLIT LOCK WASHER
14774	3/8-16 SS HEX NUT

 

[Skyybot]

Nevermind. I forgot to change the cell value with the Trim cell value. Duh. Was getting the trailing "space".

cell.Value = Trim(cell.Value)