Naming new sheets with an input box with a dynamic text string in the prompt

I would like the below code to work as intended. At the moment it inserts "second", "third", etc. into the WsName prompt (e.g. What's the name of the second sheet?). I can't figure out why it is skipping the first member of the ShtCount array ("first").

Here is the code:

Dim intSheets As Long
Dim newName As String
Dim ShtCount

ShtCount = Array("first", "second", "third", "fourth", "fifth", "sixth", "seventh", "eight", "ninth", "tenth")

intSheets = InputBox("How many sheets would you like to include in the Dashboard?")

Worksheets.Add Before:=Sheet1, Count:=intSheets

For i = 1 To intSheets
        Sheets(i).Activate
        WsName = InputBox("What's the name of the " & ShtCount(i) & " sheet?")
        ActiveSheet.Name = WsName
Next

spencer_time nailed it right on.
If you want to start with 1 being the first item, you need to use "Option Base 1" at the top of your code window.
https://docs.microsoft.com/en-us/off...base-statement

Arrays produced by the Array function start at index 0, not 1 by default. So, you could either subtract 1 from the index value for calls to the ShtCount array or you could put this at the top of your code window to force the Array function to start at index 1...

Option Base 1

Thank you! I did not know that and didn't know I could use the Option Base 1. You guys are awesome!