Dim nme As Name
Dim aryNames As Variant
Dim i As Long

With ActiveWorkbook

If .Names.Count 0 Then
ReDim aryNames(1 To .Names.Count)
For i = 1 To .Names.Count

aryNames(i) = .Names(i).Name
Next i
End If
End With

--
---
HTH

Bob


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



"LetMeDoIt" wrote in message
...
Greetings,
I've search several websites (including this forum) and cannot find
any VBA code to perform the following:

I need to populate an array with named ranges. Basically, I need to
search a sheet for defined named ranges, and once found, copy it to
array(i), then on to the next one.

Any help is greatly appreciated....