My apologies if I have done this incorrectly.
After closing off a previous post I added to this question.

Is there someway to select and update Multiple Worksheets in a Macro, I have
tried a couple of ways below I have included my latest code.

Sheets(Array("Regional Freight-QNRFA", "Int Retail-QNIMR", "Int
Wholesale-QNIMW", _
"Passenger-PS", "Network-NW", "Infrastructure-IS", "Workshop-WS",
"COMB IS & WS")).Select

Dim d As Date
d = InputBox("Enter the desired date.")
Range("C1").Value = d

This will only update the first sheet
Thanking you