Can anyone tell my why this does not loop succesfully?

[pro_mitch]

Hey guys,

I have this code in my spread sheet that updates data to it every hour from a PI server it works great for 12 hours but I need it to work for 7 days but the loop until does not work can anybody see where I am going wrong? Thanks in advance

 Dim counter As Integer
 counter = 1
Do Until counter = 8
Application.EnableEvents = True
Application.CalculateFull
Application.OnTime TimeValue("00:03:05"), "PIupdate2"
Application.OnTime TimeValue("01:03:05"), "PIupdate2"
Application.OnTime TimeValue("02:03:05"), "PIupdate2"
Application.OnTime TimeValue("03:03:05"), "PIupdate2"
Application.OnTime TimeValue("04:03:05"), "PIupdate2"
Application.OnTime TimeValue("05:03:05"), "PIupdate2"
Application.OnTime TimeValue("06:03:05"), "PIupdate2"
Application.OnTime TimeValue("07:03:05"), "PIupdate2"
Application.OnTime TimeValue("08:03:05"), "PIupdate2"
Application.OnTime TimeValue("09:03:05"), "PIupdate2"
Application.OnTime TimeValue("10:03:05"), "PIupdate2"
Application.OnTime TimeValue("11:03:05"), "PIupdate2"
Application.OnTime TimeValue("12:03:05"), "PIupdate2"
Application.OnTime TimeValue("13:03:05"), "PIupdate2"
Application.OnTime TimeValue("14:03:05"), "PIupdate2"
Application.OnTime TimeValue("15:03:05"), "PIupdate2"
Application.OnTime TimeValue("16:03:05"), "PIupdate2"
Application.OnTime TimeValue("17:03:05"), "PIupdate2"
Application.OnTime TimeValue("18:03:05"), "PIupdate2"
Application.OnTime TimeValue("19:03:05"), "PIupdate2"
Application.OnTime TimeValue("20:03:05"), "PIupdate2"
Application.OnTime TimeValue("21:03:05"), "PIupdate2"
Application.OnTime TimeValue("22:03:05"), "PIupdate2"
Application.OnTime TimeValue("23:03:05"), "PIupdate2"
counter = counter + 1
Loop