av8tordude
05-08-2011, 06:31 PM
Why is this "IF" statement working?
With cboYear
If Date < "12/1/" & Year(Date) Then
For iloop = Year(Date) To Year(Date) - 2 Step -1
.AddItem "Yr '" & iloop
Next
Else
For iloop = Year(Date) + 1 To Year(Date) - 2 Step -1
.AddItem "Yr '" & iloop
Next
End If
End With
With cboYear
If Date < "12/1/" & Year(Date) Then
For iloop = Year(Date) To Year(Date) - 2 Step -1
.AddItem "Yr '" & iloop
Next
Else
For iloop = Year(Date) + 1 To Year(Date) - 2 Step -1
.AddItem "Yr '" & iloop
Next
End If
End With