Update Cell in Multiple Sheets - Macro
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
On 4 Mar, 03:07, enna49 wrote:
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
|