Add worksheets and name them from data in an array?

[TheWennerWoman]

Thanks to very kind members of this forum, I have an array populated with values from a range of cells

Dim c as Variant
With Range("AK3", Range("AK" & Rows.Count).End(xlUp))
    c = Evaluate(Replace("unique(filter(#, # <> """"))", "#", .Address))
End With

I now need to create new worksheets which I want named using values in the array.....and I've got stuck.

I got as far as

d = UBound(c) - LBound(c) + 1
For e = 1 To d
Sheets.Add.Name = ????

How do I extract the values from the array? Or is my approach all wrong?

Thank you in advance.

 

[Fluff]

How about

Dim i As Long
For i = LBound(c) To UBound(c)
   Sheets.Add.Name = c(i)
Next i

 

[TheWennerWoman]

Thank you for that.

Subscript out of range error with

Sheets.Add.Name = c(i)

highlighted?

 

[TheWennerWoman]

Solved it

For e = LBound(c) To UBound(c)
    For f = LBound(c, 2) To UBound(c, 2)
    Sheets.Add.Name = c(e, f)
    Next f
Next e

Thank you Fluff for pointing me in the right direction!

 

[Fluff]

You don't need that inner loop, my code should have been

Dim i As Long
For i = LBound(c) To UBound(c)
   Sheets.Add.Name = c(i, 1)
Next i

 

[TheWennerWoman]

Thank you, that's much cleaner than mine

 

[Fluff]

You're welcome & thanks for the feedback.