[Resolved] If/Then Woes.. help!

[GuyGadois]

I am trying to implement a if/then statement on the excel spreadsheet macro but it get errors, what am I doing wrong? I want the macro to only run between the hrous of 6:30am and 1:00pm. If it is not between those times then it should exit the macro. If it is between those hours then the macro should start. Any advice? Thanks in advance.

Guy

Sub IntraData()
    
i = Hour(Time)
 
If i > 6 Then
If i < 13 Then
 
    Set b = Selection
    ad = b.Address
    
    dTime = Now + TimeValue("00:15:00")
    Application.OnTime dTime, "IntraData"
 
    Sheets("Intraday").Select
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown
    Range("D1").Select
    Selection.Copy
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("G&I").Select
    Range("X168").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Intraday").Select
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Growth").Select
    Range("Y116").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Intraday").Select
    Range("C2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("G&I Summary").Select
 
    Range(ad).Select
 
End If
 
End Sub

Edit: Added [vbcode][/vbcode] tags for clarity. - Hack

[Harsh Gupta]

hmmmmmmm.........which language is this??????

[Hack]

Moved from ClassicVb.

[DKenny]

You have 2 "IF" statements but only 1 "End IF".

Changing

If i > 6 Then
If i < 13 Then

to

If i > 6 And i < 13 Then

should solve your problem.