Test for non contiguous range

[Formula11]

How you check if non contiguous selection is on more than 1 row and more than 1 column.

In this case, don't continue macro.
In image below, grey cells represent selection.

Tried to test using below but don't get the expected answer.

MyRange.Rows.Count
MyRange.Columns.Count

 

[Micron]

I suppose like me, the row count is accurate for you but not the column count? Try
Intersect(rng, rng(1, 1).EntireRow).Cells.count
Then an If block:
if row.count > 1 and column count > 1 then exit sub.

At least I think that's what you're after.

 

[Formula11]

Thanks Micron but it's not quite clear, I did something similar before but it wasn't working.

 

[Formula11]

I found something here which explains something to the effect of sub-ranges and not being sorted:

Last Row or Cell in a Non-Contiguous Range {NOT a Worksheet search}

To start off, this is not the typical newbie question. I'm trying to find the last row (or cell) in a range I already created properly. In this example I have two ranges combined into one with uni...

stackoverflow.com

It gives the last row for example and can be added to, to include last column.

LAST ROW

    Dim subRange As Range
    Dim maxRow As Long, areaMaxRow As Long

    maxRow = 0

    For Each subRange In targetRange.Areas
        areaMaxRow = subRange.Rows(subRange.Rows.Count).Row
        If areaMaxRow > maxRow Then maxRow = areaMaxRow
    Next subRange

    GetLastRowOfNonContiguousArea = maxRow

FIRST ROW
From here:

First row in unsorted range VBA

I ask the user to select cells with an InputBox. I would then like to find the cell with the lowest row number in that range. Is there some function that does it or do I have to iterate through all...

stackoverflow.com

 

[Peter_SSs]

Would something like this help?

Sub CheckSelection()
  If Selection.Count = 1 Then
    MsgBox "Single cell"
  ElseIf Intersect(Selection, Selection.Cells(1, 1).EntireRow).Address = Selection.Address Then
    MsgBox "1 row"
  ElseIf Intersect(Selection, Selection.Cells(1, 1).EntireColumn).Address = Selection.Address Then
    MsgBox "1 column"
  Else
    MsgBox "Multiple rows/columns"
  End If
End Sub

 

[Formula11]

Thanks Peter_SSs, I'll try that as well.

 

[Micron]

Maybe I'm not sure of the requirement. I figure it is, "if a non contiguous range is over more than one row and over more than one column, do something".
This lets me know how many columns:

Sub testNCrange()
Dim rng As Range
Set rng = Application.InputBox(" ", " ", Type:=8)
Debug.Print rng.Address
Debug.Print Intersect(rng, rng(1, 1).EntireRow).Cells.count

End Sub

I realize it is not enough as is (it doesn't test if the range is contiguous or not) but it's how I counted the columns.

 

[Formula11]

OK no worries, I also didn't expect complexity involved.