I'm not sure what you mean by a multipage box, but I think I'd try changing
this

If .Pages(i).Caption Year(Now) Then

to

If .Pages(i).Caption format(date,"yyyy") Then
--
HTH,

Barb Reinhardt



"LaDdIe" wrote:

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