Sub SuperScriptIt()
Dim aUni, a, sIn$, sOut$, i&, j&, s1&, s2&
aUni = Split("1D43,1D47,1D9C,1D48,1D49,1DA0,1D4D,02B0,2071,02B2,1D4F,02E1,1D50,207F,1D52,1D56,,02B3,02E2,1D57,1D58,1D5B,02B7,02E3,02B8,1DBB", ",")
sIn = Cells(1, 1) 'Input String
a = Split(sIn)
For i = LBound(a) To UBound(a)
For j = 1 To Len(a(i))
If Mid(a(i), j, 1) = "'" Then
s1 = Asc(Mid(a(i), j + 1, 1))
sOut = sOut & "'" & ChrW("&H" & aUni(s1 - 97))
On Error Resume Next
s2 = Asc(Mid(a(i), j + 2, 1))
sOut = sOut & ChrW("&H" & aUni(s2 - 97))
On Error GoTo 0
Exit For
Else
sOut = sOut & Mid(a(i), j, 1)
End If
Next
sOut = sOut & " "
s1 = 0
s2 = 0
Next
Cells(2, 1) = Left(sOut, Len(sOut) - 1) 'Output string
End Sub
Be aware, there is no unicode for a superscript 'q' so avoid them!