How about if the ActiveSheet has data or is protected?
Will need to add quite a bit more code then.

RBS


"ShaneDevenshire" wrote in
message ...
Hi,

Here is an entirely different approach, pretty fast too

Sub SortArray()
Dim str As Variant
[D1:D30] = str
[D1:D30].Sort _
Key1:=[D1], _
Order1:=xlAscending, _
Header:=xlNo
str = [D1:D30]
[D1:D30].ClearContents
End Sub

--
Thanks,
Shane Devenshire


"Rivers" wrote:

Hi guys is there a quick way to get an array that holds 30 names
alphabetically sorted. any help would be great. my array is called
str(30)