Hi,

I am tryiing to setup an automated command within excel for every 1/2 hr to
send a column in excel with data to large group of people through outlook.

I am using this code but it is not working out:


Sub AutoRefresh()

ActiveWorkbook.RefreshAll
Application.OnTime Now + TimeValue("00:01:00"), "SendEmail"
Application.OnTime Now + TimeValue("00:30:00"), "AutoRefresh"

End Sub

It works only the 1st time when the workbook is open after that for every
1/2 hr it loses 1 min so the next time instead of starting @ 30 min interval,
it starts @ 29 min and so on. In the end the schedule email gets delivered
earlier and earlier instead of the precise 30 min interval that I am looking
for.

How can I get it done???