title: Pass VBA Sub a Range
body: <p>I keep getitng this Error "Type missmatch"</p>
  
  <p>I want to be able to format cells in my spreed sheet by passing a range and a value I'd like displayed. </p>
  
  <p>Can anyone point out where I'm going wrong?</p>
  
  <pre><code>Sub Layout()
  
  Call Create_Box("A1:A2", 10)
  
  End Sub
  
  Sub Create_Box(R As Range, V As String)
  
  
      Dim box As Object
      Set box = Range(R)
          With box
              .Merge
              .Value = Box_value
              .HorizontalAlignment = xlCenter
              .VerticalAlignment = xlCenter
              .Border.Style = continous
              .Border.Color = black
              .Border.Weight = xlThick
          End With
  
  End Sub`
  </code></pre>