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
 

Excel Facts

Round to nearest half hour?
Use =MROUND(A2,"0:30") to round to nearest half hour. Use =CEILING(A2,"0:30") to round to next half hour.
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
 
Upvote 0
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.
 
Upvote 0

Forum statistics

Threads
1,217,454
Messages
6,136,745
Members
450,025
Latest member
Beginner52

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
Back
Top