Kdyz chcete oblasti vybrat, je nutne pri jejich ukladani do promennych prepnout na konkretni sesit.
Jednotlive bunky uz pak muzete projit a porovnat jednoduchy cykles For Each...Next
Sub Oblasti()
Workbooks(2).Activate
Set oblast1 = Range(Selection.Address)
Workbooks(3).Activate
Set oblast2 = Range(Selection.Address)
MsgBox "Oblast1: " & oblast1.Address & vbNewLine & _
"Oblast2: " & oblast2.Address
End Subcitovat