I'm a very green 'programmer' and I'm having some trouble with having a dropdown object in 'sheet1' that I want to display all the sheets titles.

Here is what I have for the code:

Sub dropdown()
Dim Arr() As String
Dim I As Integer
ReDim Arr(Sheets.Count - 1)
For I = 0 To Sheets.Count - 1
Arr(I) = Sheets(I + 1).Name
Next I
AllSheetNames = Arr
End Sub

When I run it, or save it. I get nothing in the dropdown box.

Help?

Ps. I got that code from this site as well.