How can one change the style of a text in a highlighted cell in a table in MS Word?

I have a table in MS Word.
I want to change the style of a few cells to a defined style in the document -- "NewStyle09".

If i have to change the style of a selected text, I can do the following:
Selection.Range.Style = "NewStyle09"

However, I am unable to extend this concept to changing the style of a highlighted cell in a table.

Can you please help.

Update:

When I select more than one contiguous cells, the following code changes the style of text in the other cells that are adjacent to the ones that i select. However, i only want the cells that i select to change its style.

'change style of table cell
Sub TargetSelectedCells()
    Dim tbl As Table
    Dim rng As Range
    
    ' Check if a table is selected
    If Selection.Information(wdWithInTable) Then
        Set tbl = Selection.Tables(1)
        
        ' Check if cells are selected
        If Selection.Cells.Count > 0 Then
            Set rng = Selection.Range
            
            ' Do something with the selected cells
            ' For example, change the background color
            rng.Style = "HON White"
            'rng.Shading.BackgroundPatternColor = wdColorLightBlue
        End If
    End If
End Sub

You can reference the cell of a selection use Selection.Range.Cells(1)

Sub formatSelectedCell()
Dim rg As Word.Range
Set rg = Selection.Range

If Selection.Information(wdWithInTable) = True Then
    rg.Cells(1).Range.Style = "NewStyle09"
End If

End Sub

The code checks if selection is within table.

To change style of each selected cell use this code:

Sub formatSelectedCell()
Dim rg As Word.Range
Set rg = Selection.Range

Dim c As Cell
If Selection.Information(wdWithInTable) = True Then
    For Each c In rg.Cells
        c.Range.Style = "NewStyle09"
    Next
End If

End Sub

> When I select more than one contiguous cells, the following code changes the style of text in the other cells that are adjacent to the ones that i select. However, i only want the cells that i select to change its style.

> Note the style have paragraph level and character level, if you just want to apply to a cell , you should use the character level one for your "NewStyle09" . Refer to

<https://stackoverflow.com/questions/76178613/why-cant-i-apply-two-different-styles-within-the-same-paragraph-using-vba>

<https://stackoverflow.com/questions/76169107/changing-style-of-selection-works-but-isnt-reflected-in-the-document-ribbon-bar/76169284?noredirect=1#comment134334245_76169284>

Did you check what I reminded you before first?

Could you give me a sample to test, especially including the style "NewStyle09" you defined by yourself?