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.

Please Login or Register  to view this content.

The code works except for this line:

Please Login or Register  to view this content.

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