Sub SubScriptTitle()
  Dim sTitle As String

  sTitle = "CO2 Emissions"

  With Sheets("Sheet1").Cells(1, 1)
    .Value = sTitle
    .Characters(3, 1).Font.Subscript = True
  End With
End Sub

 
Here, With means take Sheets(“Sheet1″).Cells(1, 1) and perform the following actions with it. The first action is to put the title into the cell, the second is to take a substring starting at character 3, one character long, and subscript it.

In my situation, the title is actually written in the code, not drawn from data in a cell.

Sub Title()
Dim Title As String
Dim StringLength As Integer

Title = “CO2 Emissions”
StringLength = Len(Title)

Sheets(“Sheet1″).Cells(1, 1) = Title

End Sub

I don’t understand how to use the With statements to make the 2 in CO2 subscript.

Thank you.

The way I had to do it on one project was to assign the superscript format to only some of the characters in the text element. I show this in the Scientific/Exponential Notation Axis Labels tutorial to produce the exponent on the powers of ten.

With srs.Points(Counter)
    ' Apply label to point
    .HasDataLabel = True
    .DataLabel.Characters.Text = _
        myString1
    ' Superscript part of the label
    With .DataLabel.Characters(3, Len(myString1) - 2).Font
        .Superscript = True
        .Size = .Size + 1
    End With
End With

 
The segment of the label is accessed using .Characters(start, length). I increased the size of the superscripted text by one point to make it legible.

So, to change the title of the worksheet and within the chart I assign the title, simply by saying Title = “Water”. Where ever I need that specific text in the code, I use Title.

My question is, how do I subscript in the text of the editor box. This code changing is not my own. The previous programmer was able to add superscript within the editor box. Is there a way to do subscript?

He simply had Title = “Water m³”

I am trying to say Title = “CO2 emissions”
(I cut and pasted the m3 from the program and the format stays, even in this email. I cut and pasted from a word document the CO2… and the 2 was subscript, but didn’t carry over in this email)

I hope this question makes sense. I have seen a lot of website resources for formating specific cells, but nothing within the VBA editor.

Thanks,