title: Calculate average of selected cells in a column
body: <p>I'm trying to mark cells from a column then store the range into a variable. I would like to use the variable for another macro to calculate the average from the given range.</p>
  
  <pre><code>Sub UserRang()
  
  Dim SelRange As Range
  
  Set SelRange = Selection
  Rng1 = SelRange.Address
  MsgBox "You selected: " &amp; Rng1
  
  End Sub
  
  
  Sub GradeAve()
  
  GradeAverage = Application.WorksheetFunction.Average(Rng1)
  MsgBox "The grade average is: " &amp; GradeAverage
  
  End Sub
  </code></pre>