How to change style of text in table?

[SCMiller]

Sub CreatDoc()
    Dim newDoc As Document
    Dim rg As Range
    
    Set newDoc = Documents.Add
    Set rg = ActiveDocument.Range(Start:=0, End:=0)
    newDoc.Tables.Add Range:=rg, NumRows:=1, NumColumns:=1
    With newDoc.Tables(1).Cell(1, 1)
        .Range.Text = "Hi!"
        'How do I change the style of the text in table 1 cell(1,1)?
    End With
End Sub

[SCMiller]

I figured it out. All I needed to add was:

.Range.Style = "Diagram"

My problem was that I added this style to the document I was working from, but it was not added to the Normal.dotc and so the new document didn't have this style available.