VBA Display Input Box to Add Value to Cell

Hi, I wonder whether someone may be able to help me please.

I'm using the code below to create multiple sheets in a given workbook.

    Dim shArray() As Variant             'Declare the sheet Name array and a
    Dim i As Long                        'counter variable
    
        shArray = Array("Monthly Direct", _
            "Monthly Enhancements", _
            "Monthly Indirect", _
            "Monthly Overheads", _
            "Monthly Projects", _
            "Yearly Direct", _
            "Yearly Enhancements", _
            "Yearly Indirect", _
            "Yearly Overheads", _
            "Yearly Projects", _
            "C&R In Flight Projects", _
            "S&A In Flight Projects", _
            "C&R Graph Data", _
            "S&A Graph Data", _
            "C&R Flexible Resource Profile", _
            "S&S Flexible Resource Profile", _
            "C&R Flexible Resource KPI", _
            "C&R Resource Capacity")    'Populate the array
            
            For i = LBound(shArray) To UBound(shArray)  'Loop through the elements
                Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = shArray(i)
                shArray(i).Range("B3").Value = InputBox("Enter the month of the data you wish to use?")
            Next

            Call MonthlyExtract
            Call DirIndOVHExtract
            Call YearlyExtract
            Call MonthlyFormat
            Call YearlyFormat

End Sub

The code works except for this line:

shArray(i).Range("B3").Value = InputBox("Enter the month of the data you wish to use?")

What I'm trying to achieve, is to dispaly an 'Input Box' to allow the user to enter a date which will populate cell B3 in each of the created sheets. However, when I run this, although I can display the 'Input Box', when I enter the data, and click 'Ok', I receive a 'Run time' error highlighting this line as the cause.

I just wondered whether someone may be able to look at this please and let me know where I'm going wrong.

Many thanks and kind regards

Chris

Hi Andy, thank you very much for coming back to me with this.

I tried the code you kindly provided, and although this displays the 'Input Box' and allows the user to enter the date, the 'Input box' is displayed for each sheet in the array, rather than once, which I was hoping for.

Many thanks and kind regards

Chris

Hi Andy, thank you for coming back to me with this with the code and the explanation on the change.

The code works perfectly!

All the best and kind regards

Chris