new macro - Delete specific StyleSet

Sub Delete_StyleSet_by_Name()

Dim styleThis As Style
Const strStyleSetName = "SKU Overline1"

    Set styleThis = ActiveDocument.StyleSheet.StyleSets.Find(strStyleSetName)
    If styleThis Is Nothing Then
        MsgBox "The StyleSet " & """" & strStyleSetName & """" & " was not found.", vbInformation, "Delete StyleSet by Name"
    Else
        styleThis.Delete
        MsgBox "The StyleSet " & """" & strStyleSetName & """" & " was deleted.", vbInformation, "Delete StyleSet by Name"
    End If
End Sub

Sub Delete_Style_by_Name()

Dim styleThis As Style
Const strStyleName = "Elevation Mark"

    Set styleThis = ActiveDocument.StyleSheet.Styles.Find(strStyleName)
    If styleThis Is Nothing Then
        MsgBox "The Style " & """" & strStyleName & """" & " was not found.", vbInformation, "Delete Style by Name"
    Else
        styleThis.Delete
        MsgBox "The Style " & """" & strStyleName & """" & " was deleted.", vbInformation, "Delete Style by Name"
    End If
End Sub