VBA Macro to Find and Replace the Omega/Ohm Symbol

[Nfelsman]

I picked a doozy for my first post. I've been searching all over the net all day to find out how to make a macro that will find and replace the Omega/Ohm symbol. I've found plenty of macros that can do a simple find and replace, but where I'm having trouble is with representing the Omega symbol in VBA.

I've checked the 255 characters that result from the "=CODE" function to see if I could get it to work that way, but the Omega symbol isn't on there.

If there ends up not being a way to represent the Ohm symbol in VBA, is there a macro that will eliminate all special characters in general? Like these: µ ® © ™ ° Ω ¼ ½ ¾ ¥ ¿ Æ …

Thanks to anyone that can help me figure this out

 

[sweater_vests_rock]

I picked a doozy for my first post. I've been searching all over the net all day to find out how to make a macro that will find and replace the Omega/Ohm symbol. I've found plenty of macros that can do a simple find and replace, but where I'm having trouble is with representing the Omega symbol in VBA.

I've checked the 255 characters that result from the "=CODE" function to see if I could get it to work that way, but the Omega symbol isn't on there.

If there ends up not being a way to represent the Ohm symbol in VBA, is there a macro that will eliminate all special characters in general? Like these: µ ® © ™ ° Ω ¼ ½ ¾ ¥ ¿ Æ …

Thanks to anyone that can help me figure this out

I think the below code should do the trick:

Sub No_omegas()

    Dim rg As Range
    Dim x As Long
    
    x = 937 'Omega charcter
    Set rg = Selection
    
    rg.Replace What:=ChrW(x), Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False
    
End Sub

Thanks to the omnipotent Andrew_Poulsom for the tip on AscW() to determine the right ChrW code!

Ben.

 

[Armando Montes]

The ascii code is Alt+234: Ω
More codes:
http://chexed.com/ComputerTips/asciicodes.php