ActiveCell.FormulaR1C1 =
"1"
Range(
"B1"
).
Select
Application.Wait Now + TimeSerial(0, 0, 1)
ActiveCell.FormulaR1C1 =
"2"
Range(
"B1"
).
Select
Application.Wait Now + TimeSerial(0, 0, 1)
ActiveCell.FormulaR1C1 =
"3"
Range(
"B1"
).
Select
Application.Wait Now + TimeSerial(0, 0, 1)
ActiveCell.FormulaR1C1 =
"4"
Range(
"B1"
).
Select
Application.Wait Now + TimeSerial(0, 0, 1)
ActiveCell.FormulaR1C1 =
"5"
Range(
"B1"
).
Select
Application.Wait Now + TimeSerial(0, 0, 1)