Lorenzo,

Private Sub Halfhourly()
Do While DateTime.Time ("07:29:00") And DateTime.Time < ("22:31:00")

If Minute.Time Mod 30 = 0 Then 'Is it 00 or 30 minutes past the hour
'*
'*
'Do your stuff
'*
'*
Application.Wait Time + TimeValue("00:01:00")
'Wait whilst time moves on to 01 or 31 minute past the hour
'You wont need this line if your "stuff" takes longer than 1 minute to run


End If

Loop
End Sub

HTH
Henry


"Lorenzo" wrote in message
om...
I have what is probably a very small problem, but the solution to it
simply keeps on eluding me. I have a macro that runs a series of
operations on a sheet, that has to be run only for a certain time of
the day. As on a sheet I have in B21 the current time and in cell B22
the time the last update of the sheet was done, I was trying to figure
a way to have the macro run when the time in cell B21 reaches 07.30am
and have it stop when the time value in B22 is equal to or greater
than 10.30pm, to then start again at 7.30 the day after and so on. My
first thought was using an
If *value in cell B21 < 07.30* or *value in cell B22 22.30* then
*end the sub*
else *the rest of the macro code, which works perfectly*
Being a VB newbie, most of its' language still baffles me, as you may
have noticed.
I really hope you can help me, and I thank you for any help you might
be able to give. Lorenzo