page numbering

[Kilroy]

I have the following code that worked for a while but now for some reason it doesn't? Anyone have any ideas?

Sub PageNumbers()
    Dim oRng As Range
    Set oRng = ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range
    Application.Templates(Environ("APPDATA") & "\Microsoft\Document Building Blocks\1033\" & _
    Val(Application.Version) & _
    "\Built-In Building Blocks.dotx").BuildingBlockEntries("Bold Numbers 3").Insert _
    Where:=oRng, RichText:=True
End Sub