точка перед Range не нужна

потому что при записи .Range(.Address) адрес отсчитывается не от "начала координат" (первой ячейки листа), а от объекта Selection,  
который начинается правее.  
Оттуда и смещение.  
 
Это равносильно записи Range("d5").Range("b2")  
проверьте: Range("d5").Range("b2").Address  = $E$6

Я тут на днях всю голову сломал с этим .Selection  
 
Мне необходимо было увязать .Selection и .ActiveSheet.UsedRange, с целью ускорить проход цикла по ячейкам.  
 
Могу ошибаться, но попробуйте следующее удерживая Ctrl: выделите ячейку, замтем, выделите любую другую, не смежную с ней ячейку. Код приведенный ниже, если я не ошибаюсь, будет давать только адрес первой (если вообще будет работать)  
 
 
Sub wwww()  
Dim aa, a  
With Selection  
aa = .Address  
a = .Range(.Address).Value  
End With  
End Sub

может я чего то не понимаю? В архиве три файла. Просьба просмотреть примеры с окнами Locals & Immadiate.  
 
 
p.s.: звеняйте, у нас ОЧЕНЬ жарко, я перегрелся : )

Все верно. В массив попадут только значения первой прямоугольной области(area).  
А адрес сформируется для всех областей.

и еще немного "танцы с бубном":  
 
Dim x, objRange as object  
with application  
For Each x In .Selection.Areas  
If x.Address = .Rows.Address Then Set objRange = .ActiveSheet.UsedRange Else Set objRange = x  
Next  
end with

Я не очень понял танцы с бубнами, а несколько несвязанных диапазонов в массив можно загнать так  
Sub ww()  
   Dim arr, i&, d&, cell As Range  
   With Selection  
       If .Areas.Count > 1 Then  
           For i = 1 To .Areas.Count  
               d = d + .Areas(i).Cells.Count  
           Next: i = 0  
           ReDim arr(1 To d, 1 To 1)  
           For Each cell In Selection  
               i = i + 1  
               arr(i, 1) = cell.Value  
           Next  
       End If  
   End With  
   [a20].Resize(d) = arr
End Sub

Андрей, а если диапазоны пересекаются?:-)

Самый короткий вариант, кажется:  
for each c in selection.cells с предварительным  
redim a(1 to selection.cells.count)

На мой взгляд и должно было попасть столько раз, сколько выделяли.  
Я просто в настояший момент не представляю, где могло бы потребоваться это решение.  
Это уже чисто спортивный интерес.  
Можно подумать.-:)

про кол-во строк очепятка - 1:65536  
 
и это  
If x.Address = .Rows.Address Then Set objRange = .ActiveSheet.UsedRange Else Set objRange = x  
 
можно заменить на это  
 
Set objRange = Iif(x.Address = .Rows.Address,ActiveSheet.UsedRange,x)

{quote}{login=RAN}{date=28.07.2011 10:51}{thema=}{post}Я не очень понял танцы с бубнами {/post}{/quote}  
Т.е. что, я понял, не понял - зачем.

А если выделен не весь лист, а несколько Areas , заносим в массив значения последнего?

Sub io()  
...................  
 
L1  
objRange  copy [a10]
End sub  
Выделяем несколько Areas , запускаем io, смотрим