Sub change1252_1251()
         On Error Resume Next
         If Selection.Cells.Count > 1 Then
            Set Rng = Selection.SpecialCells(xlCellTypeConstants)
        Else
            Set Rng = Selection
        End If
          On Error GoTo 0
             For Each cell In Rng
                If (Not IsEmpty(cell)) And (Not IsError(cell)) Then
                    strout = cell.Value
                      For i = 1 To Len(cell)
                        str1 = Mid(strout, i, 1)
                            If AscW(str1) >= 192 And AscW(str1) <= 255 Then
                      Mid(strout, i, 1) = Chr(AscW(str1))
                            End If
                    Next i
                    cell.Value = strout
                End If
            Next cell
     End Sub