I am running the below code...is it possible to have reset the two buttons I
added in the Sub Menu_Item macro to the active file name after a "Save As".  
I keep getting an error saying that "The macro 'OriginalFileName!InsertLine'
cannot be found."

Private Sub Workbook_Open()
   Call MenuBar_Item
   Call DoF
End Sub

Private Sub MenuBar_Item()
   Call MenuBar_Item_Delete
   With Application.CommandBars("Standard")
       With .Controls.Add(Type:=msoControlButton, ID:=2, Temporary:=True _
           , Before:=1)
           .Style = msoButtonIcon
           .Caption = "&Spell Check"
           .TooltipText = "Run Spell Check"
           .OnAction = ThisWorkbook.Name & "!SpellCheck"
           .Tag = "SpellCheck"
       End With
       With .Controls.Add(Type:=msoControlButton, ID:=295, Temporary:=True _
           , Before:=2)
           .Style = msoButtonIcon
           .Caption = "&Insert Formated Line"
           .TooltipText = "Run Insert Formated Line"
           .OnAction = ThisWorkbook.Name & "!InsertLine"
           .Tag = "InsertLine"
       End With
   End With
End Sub

Private Sub MenuBar_Item_Delete()
   On Error Resume Next
   Application.CommandBars.FindControl(Tag:="SpellCheck").Delete
   Application.CommandBars.FindControl(Tag:="InsertLine").Delete
   On Error GoTo 0
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Call UndoDoF
End Sub

Private Sub DoF()
   With Application
       .OnKey "{F7}", "SpellCheck"
       .OnKey "{F12}", "InsertLine"
   End With
End Sub

Private Sub UndoDoF()
   With Application
       .OnKey "{F7}"
       .OnKey "{F12}"
   End With
End Sub