Help for this page

Select Code to Download


  1. or download this
    'This runs the macro below
RunMacro
...
  Set xlBook = Nothing
  Set xl = Nothing
End Sub
  2. or download this
    Sub Macro1(Param1 As String)

...
    ActiveCell.FormulaR1C1 = "=SUM(R[-8]C:R[-1]C)"
    Range("C10").Select
End Sub
  3. or download this
    1    2    3    4        
1    2    3    4        
...
1    2    3    4        
1    2    3    4        
        24    1    1    1