Update Cell in Multiple Sheets - Macro

[enna49]

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

 

[Jarek Kujawa]

Sub Makro1()

Range("C1").Select

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

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

Selection.FormulaR1C1 = d

End Sub

 

[enna49]

Thank you, you guys are great.
Works perfectly

Sub Makro1()

Range("C1").Select

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

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

Selection.FormulaR1C1 = d

End Sub





.