VBA Substitute Chr 160

Shind1

New Member
Joined
Aug 14, 2009
Messages
18
Hi,

I can get rid of Char 160 using SUBSTITUTE(A1,CHAR(160),"") in Excel, but would like todo this in VBA. So I have the below code but its doesn't seem to work.
For Each A In Range("B15:B" & Range("B65536").End(xlUp).row)

ID = A.Value
ID = Application.WorksheetFunction.Substitute(ID, Chr(160), "")
A.Value = ID

Next A

Please can anybody assist.

Thanks
 

Some videos you may like

Excel Facts

Why are there 1,048,576 rows in Excel?
The Excel team increased the size of the grid in 2007. There are 2^20 rows and 2^14 columns for a total of 17 billion cells.

Rick Rothstein

MrExcel MVP
Joined
Apr 18, 2011
Messages
36,718
Office Version
  1. 2010
Platform
  1. Windows
Hi,

I can get rid of Char 160 using SUBSTITUTE(A1,CHAR(160),"") in Excel, but would like todo this in VBA. So I have the below code but its doesn't seem to work.
For Each A In Range("B15:B" & Range("B65536").End(xlUp).row)

ID = A.Value
ID = Application.WorksheetFunction.Substitute(ID, Chr(160), "")
A.Value = ID

Next A

Please can anybody assist.

Thanks

Try this...
Code:
Sub Remove160s()
    Columns("B").Replace Chr(160), "", xlPart
End Sub
 

Rick Rothstein

MrExcel MVP
Joined
Apr 18, 2011
Messages
36,718
Office Version
  1. 2010
Platform
  1. Windows
Tried this still doesn't work unfortunately.
It worked on the tests I did on my computer when I tried it before posting it back to you. Your data with the Chr(160) characters is in Column B (as your originally posted code indicates it is), correct? Describe "still doesn't work" for us (for example, is there an error, if so, which one?) so we have some idea what you see when you try the code.
 

Watch MrExcel Video

Forum statistics

Threads
1,123,385
Messages
5,601,331
Members
414,446
Latest member
CRAVIN

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top