Another useful macro...

[alexpgp]

Converting from CP1251 to Unicode is sticky, and the following macro will do the job, albeit slowly for large files.

Sub CP1251ToUnicode
'
  For i = 192 to 255
    With Selection.Find
      .Text = ChrW(i)
      .Replacement.Text = ChrW(i + 848)
      .Forward = True
      .MatchCase = True
    End With
  Next i
End Sub

One thing this macro definitely does not do is cause the converted text to be identified as being in Russian.

Cheers...