title: How to disable multi row/column selection in inputbox?
body: <p>I am looking for a way to disable multi selection in my inputbox if the user selects multiple rows and columns at the same time. I have tried this code:</p>
  
  <pre><code>Dim rng As Range
  Set rng = Application.InputBox("dasdasd", "asdas", "", Type:=8)
  
  If rng.Columns.Count &gt; 1 And rng.Rows.Count &gt; 1 Then
      MsgBox "Multiple selection allowed only within the same row or column"
      Exit Sub
  Else
      'carry on
  End If
  </code></pre>
  
  <p>What I want to do is to disable multi-column and multi-row selection at the same time.
  For example - if I select (using ctrl key) range "D1:D5","D8:D10" then it is correct, as this is multiple row selection BUT within ONE column. If I select "D1:D5","E8:E10" then it should pop error, msgbox, whatever. If only one row or column are selected then it should keep going in procedure. If multiple rows AND multiple columns have been selected then it should exit sub.</p>
  
  <p>The code above always returns one row or one column, no matter how many ranges I select across many rows/columns. I have tried current region approach, but this selects entire region, even the thing I have not selected...</p>
  
  <p>I will be grateful for help.</p>