Sub ShowCellFormulas()
    
  'ShowCellFormulas()
  ' The following macro will do the crappy hack of commenting out your selected
  ' cells, which will display cell formulas.  This was originally written so that
  ' I could print results and cell formulas on the same worksheet for MBA 612.
  '
  ' For full details (and screenshots) visit:
  ' http://www.j5studios.com/projects/excel/
  '
  '
  ' Created by Justin Ribeiro - J5 Studios
  '  Email: ribeiro@j5studios.com
  '  Web:   http://www.j5studios.com/
  '  Date:  09/17/2004
  
    ' setup a variable for out selected cell range
    Dim oCell As Range
    
    ' loop over our selected cell range
    For Each oCell In Selection

	'tag the comment operator on to display formulas
        oCell = "'" + oCell.Formula

    Next

End Sub


Sub RemoveCellFormulas()
    
  'RemoveCellFormulas()
  ' The following macro will do the crappy hack of removing the comment from selected
  ' cells (this is the opposite of ShowCellFormulas macro above).
  '
  '
  ' Created by Justin Ribeiro - J5 Studios
  '  Email: ribeiro@j5studios.com
  '  Web:   http://www.j5studios.com/
  '  Date:  09/17/2004
    
    ' setup some variables
    Dim oCell As Range
    Dim newString As String
    
    ' loop over the selected cells
    For Each oCell In Selection
	
	'trim the comment operator off 
        newString = Right(oCell, Len(oCell))
        
	'set the cell back to normal
	oCell = newString
    Next

End Sub