Double_byte find problem

[Guest]

Hi,

I have a macro written like this.
Dim sAddr As String
Dim rng As Range, rng1 As Range
Set rng = Cells(Rows.Count, 1)
Set rng1 = Range("A:B").Find(What:="åˆè¨ˆ", _
After:=rng, _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not rng1 Is Nothing Then
sAddr = rng1.Address
Do
If rng1.Column = 1 Then
rng1.Offset(0, 1).Resize(, 3).ClearContents
ElseIf rng1.Column = 2 Then
rng1.Offset(0, -1).ClearContents
rng1.Offset(0, 1).Resize(, 3).ClearContents
End If
Set rng1 = Range("A:B").FindNext(rng1)
Loop While rng1.Address <> sAddr
End If

When I copy this macro in VBA editor.
The Kanji character changes to "??" from "åˆè¨ˆ"
at the following line.
Set rng1 = Range("A:B").Find(What:="??",

Due to this my macro is not running properly. Could anyone help me further
on this.

Any help would be highly appreciated.

Thanks a lot in advance.

 

[Corey]

From Excel Help.

Reconvert Japanese, Traditional Chinese, or Simplified Chinese text
The feature described in this Help topic is only available if support for Simplified Chinese, Traditional Chinese, or Japanese is enabled through Microsoft Office Language Settings.

To use this feature, you must be using Microsoft IME 98, IME 2000 or later, or another Input Method Editor (IME) (IME: A program that enters East Asian text (Traditional Chinese, Simplified Chinese, Japanese, or Korean) into programs by converting keystrokes into complex East Asian characters. The IME is treated as an alternate type of keyboard layout.) that supports the feature.

1.. Place the insertion point at the beginning or in the middle of the characters you want to reconvert, right-click at the beginning or in the middle of the characters, and then click Reconvert on the shortcut menu.
A list of conversion options is displayed.

2.. Click the option you want.
3.. Press ENTER to confirm the conversion.
Hope it assist you....