Sub Deletespaces()

Dim cell As Range

For Each cell In ActiveSheet.Range("BI:BI") '

cell.Value = Replace(cell.Value, Chr(160), "") 'This Step doesn't work
'Other Code

Next

End Sub