VisibleRange addresses to Array

[Giff]

Does anyone know of a way to input the address of each cell in the
visible range (I've been using ActiveWindow.VisibleRange as a test)
into an array?

 

[Gary''s Student]

Sub liminal()
n = ActiveWindow.VisibleRange.Count
Dim ar() As String
ReDim ar(n) As String
i = 0
For Each r In ActiveWindow.VisibleRange
ar(i) = r.Address
i = i + 1
Next
End Sub

 

[Bob Phillips]

Dim aryAddresses As Variant

aryAddresses =
ActiveWindow.VisibleRange.SpecialCells(xlCellTypeVisible).Address


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)