Hi all
Im trying to loop a macro every 200 milliseconds but am having trouble, just wondered if anyone could help. Here is my code
Many thanks
Im trying to loop a macro every 200 milliseconds but am having trouble, just wondered if anyone could help. Here is my code
Code:
Sub Refresh()
Worksheets("Main Data").Range("AJ5:AJ11").Value = Worksheets("Main Data").Range("AI5:AI11").Value
Worksheets("Main Data").Range("AI5:AI11").Value = Worksheets("Main Data").Range("AH5:AH11").Value
Worksheets("Main Data").Range("AH5:AH11").Value = Worksheets("Main Data").Range("AG5:AG11").Value
Worksheets("Main Data").Range("AG5:AG11").Value = Worksheets("Main Data").Range("AF5:AF11").Value
Worksheets("Main Data").Range("AF5:AF11").Value = Worksheets("Main Data").Range("AE5:AE11").Value
Worksheets("Main Data").Range("AE5:AE11").Value = Worksheets("Main Data").Range("AD5:AD11").Value
Worksheets("Main Data").Range("AD5:AD11").Value = Worksheets("Main Data").Range("AC5:AC11").Value
Worksheets("Main Data").Range("AC5:AC11").Value = Worksheets("Main Data").Range("AB5:AB11").Value
Worksheets("Main Data").Range("AB5:AB11").Value = Worksheets("Main Data").Range("AA5:AA11").Value
Worksheets("Main Data").Range("AA5:AB11").Value = Worksheets("Main Data").Range("F5:F11").Value
Worksheets("Main Data").Range("AU5:AU11").Value = Worksheets("Main Data").Range("AT5:AT11").Value
Worksheets("Main Data").Range("AT5:AT11").Value = Worksheets("Main Data").Range("AS5:AS11").Value
Worksheets("Main Data").Range("AS5:AS11").Value = Worksheets("Main Data").Range("AR5:AR11").Value
Worksheets("Main Data").Range("AR5:AR11").Value = Worksheets("Main Data").Range("AQ5:AQ11").Value
Worksheets("Main Data").Range("AQ5:AQ11").Value = Worksheets("Main Data").Range("AP5:AP11").Value
Worksheets("Main Data").Range("AP5:AP11").Value = Worksheets("Main Data").Range("AO5:AO11").Value
Worksheets("Main Data").Range("AO5:AO11").Value = Worksheets("Main Data").Range("AN5:AN11").Value
Worksheets("Main Data").Range("AN5:AN11").Value = Worksheets("Main Data").Range("AM5:AM11").Value
Worksheets("Main Data").Range("AM5:AM11").Value = Worksheets("Main Data").Range("AL5:AL11").Value
Worksheets("Main Data").Range("AL5:AL11").Value = Worksheets("Main Data").Range("H5:F11").Value
End Sub
Many thanks
Last edited: