Sub Main()
Dim iCell As Range
Dim j As Long
For Each iCell In Selection
For j = 1 To iCell.Characters.Count
If IsNumeric(iCell.Characters(j, 1).Text) Then
iCell.Characters(j, 1).Font.Subscript = True
End If
Next j
Next iCell
End Sub
http://www.ambienteoffice.com.br - http://www.clarian.com.br