Open workbook macro if time is between???

  • Thread starter Thread starter buzzharley
  • Start date Start date
B

buzzharley

I'm using this open_workbook macro-

Code:
--------------------
Private Sub Workbook_Open()
ImportData

End Sub
--------------------


I want it to only import the data if the workbook is opened between
9:30 pm and 9:40 pm

So I've been trying to use all diff types of time iff statements and I
can't figure out the right way to state it?

If Time >= "21:30:00", <="21:40:00"
then

but it won't let me put in the comma? I've also tried ( )'s!! Where
am I going wrong? Do I need to use NowTime or just Now? Any help
would be awesome-- Thanks- Mike
 
Private Sub Workbook_Open()
Dim dTime as Date
dTime = Time
if dTime >= TimeValue("9:30 AM") and _
dTime < TimeValue("9:40 AM") then
ImportData
end if
End Sub


demo'd from the immediate window:

? time
11:55:58 AM
? time >= timevalue("12:30 PM")
False
? time <= timeValue("12:30 PM")
True
 
Back
Top