NameLocal Property Example

This example displays the name and localized name of style one in the active workbook.

With ActiveWorkbook.Styles(1)
    MsgBox "The name of the style is " & .Name
    MsgBox "The localized name of the style is " & .NameLocal
End With