automatically copy data to other cells every 5 minutes, multi sheets

[ste33uka]

Hi i would like to copy data from cell A1 to B column automatically every 5 minutes but with multi sheets.
The code i have so far works, but it will only copy cell A1 to cell B1 if i am on the current sheet.
Is it possible to have it copy for all sheets.

I have this in "this workbook"

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Stop execution when workbook closes
On Error Resume Next
Application.OnTime Heure, "Calcul", , False
End Sub
Private Sub Workbook_Open()
'start execution when workbook opens
Application.OnTime Now + TimeValue("00:05:00"), "Calcul"
End Sub


And this in module 1

Sub Calcul()
Heure = Now + TimeValue("00:05:00")
Application.OnTime Heure, "Calcul"
Range("b19666").End(xlUp).Offset(1) = [a1]
End Sub

 

[alansidman]

crosspost: Automatically copy data to other cells every 5 minutes, multi sheets

 

[Joe4]

While we do allow Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules). This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.

Thank you.