Hi, i've got a multipage box with tabs that are labelled with years:-
2009;2010;2011.

I'm trying to hide those tabs that are greater than the current year, I've
started on the code below, but this hides all tabs, unless I change
'If .Pages(i).Caption Year(Now) Then' To
'If .Pages(i).Caption 2010'

With Me.MultiPage1
For i = 0 To .Count - 1
If .Pages(i).Caption Year(Now) Then
.Pages(i).Visible = False
End If
Next i

End With

Any ideas are welcome