Sub test()
Dim c As Range
For Each c In ActiveSheet.UsedRange.Cells: c.Value = WorksheetFunction.Clean(c.Value): Next
End Sub

Function Get_Hyperlink_Address(ByVal rCell As Range) As String
    If rCell.Hyperlinks.Count = 0 Then
        If Mid$(rCell.Formula, 2, 9) = "HYPERLINK" Then
            Get_Hyperlink_Address = Mid$(rCell.Formula, 13, InStr(13, rCell.Formula, Chr(34)) - 13)
        Else
            Get_Hyperlink_Address = " ÿ÷åéêå íåò ãèïåðññûëêè!"
        End If
    Else
        Get_Hyperlink_Address = rCell.Hyperlinks(1).Address
    End If
End Function

Function RussianStringToURLEncode(ByVal txt As String) As String
     For i = 1 To Len(txt)
         l = Mid(txt, i, 1)
         Select Case AscW(l)
             Case Is > 256: t = "%" & Hex(AscW(l) \ 64 + 192) & "%" & Hex(8 * 16 + AscW(l) Mod 64)
             Case 32: t = "+"
             Case Else: t = l
         End Select
         RussianStringToURLEncode = RussianStringToURLEncode & t
     Next
 End Function

     Function URLEncode(ByVal Text As String) As String
      Dim i As Integer
      Dim acode As Integer
      Dim char As String
      URLEncode = Text
      For i = Len(URLEncode) To 1 Step -1
        acode = Asc(Mid$(URLEncode, i, 1))
        Select Case acode
          Case 48 To 57, 65 To 90, 97 To 122
            ' don't touch alphanumeric chars
          Case 32
            ' replace space with "+"
            Mid$(URLEncode, i, 1) = "+"
          Case Else
            ' replace punctuation chars with "%hex"
            URLEncode = Left$(URLEncode, i - 1) & "%" & Hex$(acode) & Mid$(URLEncode, i + 1)
        End Select
      Next
    End Function