It worked like a charm, thank you Peter ;-)

Memphis.
______________

"Peter T" wrote:

' in the user form module

Private Sub MultiPage1_Change()
With MultiPage1
If .Value = 2 Then
.Height = 200
Else
.Height = 400
End If
End With
End Sub

Note the index of the first page is 0, assuming Page3 is the 3rd page its
index is 2

Regards,
Peter T