>>847
Hex(WorksheetFunction.Unicode(Range("A1")))