Try this Jake, if you need a little customizing, email me.
Open the VBE
Add this to your ThisWorkBook Module
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call DeleteItemFromShortcut
End Sub
Private Sub Workbook_Open()
Call AddItemToShortcut
End Sub
Add A New Module to The Workbook and put this code in there
Where it says "Your Caption here", Change it to say what you want it to say
Sub AddItemToShortcut()
Set NewItem = CommandBars("Cell").Controls.Add(, , , 1)
With NewItem
.Caption = "Your Caption Here"
.OnAction = "AddtoCell"
End With
CommandBars("Cell").Controls("Cut").BeginGroup = True
End Sub
Sub DeleteItemFromShortcut()
On Error Resume Next
CommandBars("Cell").Controls("Your Caption Here").Delete
End Sub
Sub AddtoCell()
Dim addamount As Variant
addamount = InputBox("What do you want to add?")
ActiveCell = ActiveCell + addamount
End Sub
err handling for what i gave you
Jake,
This will resolve a problem of you trying to enter in non-numerical values into the InputBox.
Sub AddtoCell()
On Error GoTo ErrHandler
Dim addamount As Variant
addamount = InputBox("What do you want to add?")
ActiveCell = ActiveCell + addamount
Exit Sub
ErrHandler:
MsgBox "Invaild entry"
Call AddtoCell
End Sub