Reset Custom Button on toolbar
 

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 _
, Befo=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 _
, Befo=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:="SpellChe ck").Delete
Application.CommandBars.FindControl(Tag:="InsertLi ne").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

Reset Custom Button on toolbar
 

Nevermind...I found the error. I missed the line: "ThisWorkbook.Name & "
after the OnAction.

"Josh O." wrote:

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 _
, Befo=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 _
, Befo=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:="SpellChe ck").Delete
Application.CommandBars.FindControl(Tag:="InsertLi ne").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