Restyling Bibliography in VBA

Sub RestyleBibliography()
'
' Changes the style of text within the 'Bibliography' bookmark to 'Bibliography'.
'
    ' If there's no Bibliography style or bookmark, skip this (though actually I think Bibliography may be a built-in style)
    On Error GoTo ExitSub
    BibliographyStyle = ActiveDocument.Styles("Bibliography")
    With ActiveDocument.Bookmarks("Bibliography").Range
        .Select
        Selection.ClearParagraphDirectFormatting
        .style = BibliographyStyle
    End With

ExitSub:
    On Error GoTo -1 ' VBA Magic to reset error handling
End Sub