title: How to fix the following error plotting?
body: <p>I would like to plot some data, my code is really simple, the idea is just to have two ranges that are the columns that I want to plot in order to achieve this I receive them with four inbox boxes as follow:</p>
  
  <pre><code>    first = InputBox("first range", "Enter first range")
      first1 = InputBox("second range", "Enter second range")
      two = InputBox("second range", "Enter second range")
      two1 = InputBox("second range", "Enter second range")
  </code></pre>
  
  <p>My complete code looks as follows:</p>
  
  <pre><code>Sub ALL()
      Dim ws As Worksheet
      Dim rng As Range
      Dim objChrt As ChartObject
      Dim chrt As Chart
  
      Set ws = ThisWorkbook.Sheets("Sheet1")
  
      With ws
          first = InputBox("first range", "Enter first range")
          first1 = InputBox("second range", "Enter second range")
          two = InputBox("second range", "Enter second range")
          two1 = InputBox("second range", "Enter second range")
          Set rng = .Range("first:first1,two:two1")
          .Shapes.AddChart
          Set objChrt = .ChartObjects(.ChartObjects.Count)
          Set chrt = objChrt.Chart
  
          With chrt
              .ChartType = xlColumnClustered
              .SetSourceData Source:=rng
              End With
          End With
  End Sub
  </code></pre>
  
  <p>My code looks to work well but when I want to run it in a macros, and I enter the following range </p>
  
  <pre><code>A2
  A4
  B2
  B4
  </code></pre>
  
  <p>In the corresponding boxes and I press enter, I get an error in the following line:</p>
  
  <p>Set rng = .Range("first:first1,two:two1")</p>
  
  <p>I cannot fix this error, I really appreciate any suggestion to overcome this situation, thanks any how.</p>