Option Explicit

'see also  CP_Module for Chip Pearson's  RClick menus
' change to personal.xls  if that is what you use
Sub GetFormula_sub()
  If ActiveCell.Column = 1 Then
   ActiveCell.Formula = "=personal.xls!GetFormula(" & _
     ActiveCell.Offset(-1, 0).Address(0, 0) & ")"
   MsgBox "couldn't use cell to left so setting to use from cell above"
  Else
     ActiveCell.Formula = "=personal.xls!GetFormula(" & _
     ActiveCell.Offset(0, -1).Address(0, 0) & ")"
  End If
End Sub

Sub EndTotal_sub()
   Dim end_data As Long   'dmcritchie RClick 2005-05-28
   Range(ActiveCell.Address, _
     Cells(Rows.Count, ActiveCell.Column).End(xlUp).Address).Select
   end_data = ActiveSheet.Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row
   ActiveSheet.Cells(end_data + 1, ActiveCell.Column).Formula = _
     "=SUBTOTAL(9," & ActiveSheet.Cells(2, ActiveCell.Column).Address(1, 0) _
     & ":OFFSET(" & ActiveSheet.Cells(end_data + 1, _
     ActiveCell.Column).Address(0, 0) & ",-1,0))"
End Sub

Sub Clear_Constants()     'D.McRitchie 2005-11-19 rightclick.htm - insrtrow.htm
   Dim rng As Range  'prevent expansion of a single cell selection
   Set rng = Intersect(Selection, Selection.SpecialCells(xlConstants))
   If rng Is Nothing Then
     MsgBox "No constants in selection area(s) -- no removal"
   Else
     rng.ClearContents
   End If
End Sub

'see also  ChipPearson_Module for Chip Pearson's  RClick menus
'these are setup in  module1 in an Auto_Open
'Documentation in:  http://www.mvps.org/dmcritchie/excel/rightclick.htm