Dim cbButt As CommandBarButton
Dim cb As CommandBar

Set cb = Application.CommandBars("cell")
Set cbButt = cb.Controls.Add(msoControlButton)
cbButt.Caption = "Your Item"
cbButt.OnAction = "YourMacro"

Dim a

a = Application.DSum(Range("a1:c10"), "b", Range("F1:H2"))

Sub PrintSelection
    Selection.PrintOut
End Sub

=MID(A1,LEN(A1)-7,4)

Function IsFormula(c)
        IsFormula = c.HasFormula 
End Function

Sub export()
    Worksheets(1).ChartObjects(1).Chart.export "c:\chart.gif", "GIF"
End Sub

Sub due()
  Dim a, c
  For Each a In Selection
    For Each c In a
      If Not c.Locked Then c.ClearContents
    Next c
  Next a
End Sub

Sub GiveAButtonFocus()
  ActiveDialog.Focus = ActiveDialog.Buttons(3).Name
End Sub

Sub kill_button()
 Worksheets("sheet1").Activate
 ActiveSheet.DrawingObjects("Button 2").Delete
End Sub

Sub add_button()
 Worksheets("sheet1").Activate
 ActiveSheet.Buttons.Add(81, 109, 82, 23).Select
 Selection.Name = "Button 2"
 Selection.Caption = "Print" ' or whatever it says
 Selection.OnAction = "Print_Table"
End Sub

Dim MyWeek, MyDay
MyWeek = Array("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun")

MyDay = MyWeek(2) ' MyDay contains "Tue".
MyDay = MyWeek(4) ' MyDay contains "Thu".

Private Sub UserForm_Initialize()
 Calendar1.Day = Day(Date)
 Calendar1.Month = Month(Date)
 Calendar1.Year = Year(Date)
End Sub

Private Declare Function GetUserName Lib "advapi32.dll" _ 
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function NTDomainUserName() As String
  Dim strBuffer As String * 255
  Dim lngBufferLength As Long
  Dim lngRet As Long
  Dim strTemp As String

  lngBufferLength = 255
  strBuffer = String(255, 0)
  lngRet = GetUserName(strBuffer, lngBufferLength)
  strTemp = UCase(Left(strBuffer, lngBufferLength - 1))
  NTDomainUserName = strTemp
End Function

Sub openfile_1()
Dim x As Workbook

 For Each x In Workbooks
   If x.Name = "1.xls" Then
     Exit Sub
    End If
 Next
 Workbooks.Open FileName:="1.xls"
End Sub

Workbooks("1.xls").Close False

Private Sub Workbook_BeforePrint(Cancel As Boolean)
  Dim password As String

  password = Application.InputBox("enter password")
  Cancel = Not password = "right_password"
End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim r, c As Long

For r = 1 To Target.Rows.Count
  For c = 1 To Target.Columns.Count
   If Target.Cells(r, c).Value = "one" Then
     Target.Cells(r, c).Font.ColorIndex = 1
     elseif Target.Cells(r, c).Value = "two" Then
     Target.Cells(r, c).Font.ColorIndex = 2
   End If
  Next
Next
End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  if target.address="$A$3" then
    'your macto
  end if
End Sub

Application.ScreenUpdating=false  
‘your code
Application.ScreenUpdating=true

Sub SelectCols()
  First = True
  For i = 1 To 10
    If Cells(1, i).Value = "X" Then
      If First = True Then
        Set R = Columns(i)
        First = False
      End If
      Set R = Union(R, Columns(i))
    End If
  Next i
  R.Select
End Sub