Checking if selected cells is a union

[Zyg D]

Hello. I would like to check if selected cells is a union of several ranges or one solid range. I am sure there is a way, but did not manage to find it. Does anyone know how to do it?

 

[wigi]

Sub test()
    MsgBox (Selection.Areas.Count = 1)
End Sub

 

[Zyg D]

Thanks