Copying Formated Text
 

Hi,
Does anyone know is there is away to copy formated text such as the
subscript '2' in say H2O from an addin to a blank worksheet or into a
userform. At the moment I have to format each cell with code which is a
pain as there are hundreds of characters to be formated and I have use
something like this for each character.

If j = 1 Then
Set ochars = Range("J10").Characters(2,1)
With ochars
.Font.Subscript = True
End With

Thanks
Brad