title: Pass .Range as a parameter VBA
body: <p>Hi Please help me with the below, </p>
  
  <pre><code>Sub movedata()
  
      Call select_data(.Range("B6:B12"))
  
  
  End Sub
  
  
  Function select_data(C As Range)
  
      Worksheets("sheet1").Range("I6:I16") = Worksheets("Sheet1").Range(C).Value
  
  End Function
  </code></pre>
  
  <p>I can't see where I am going wrong, </p>
  
  <p>Thanks, </p>