Set Expiry Date To Macro?

I am using excel and when workbook open i call for a macro to start running--(this works no problems), so what i am trying to achieve is when i execute that macro to run, i need to set an expiry date for 6 days later. here is the code below what i am trying to do is run 52 web refresh querys, 1 every week but have to ensure the macro before has ended before the next one starts
workbook (open)

VB:
Application.OnTime Now() + TimeValue("00:01:05"), "RefreshWebQuery_Data" Module1
Sub RefreshWebQuery_Data()
'
' Macro3 Macro

[Code].....