Don't run script when active page is clicked

[kelly mort]

If the active page is page3 or page5, then don't say hello when it's clicked.

It's giving me a headache. Can someone fix that for me?

Private Sub MultiPage1_Click (ByVal Index As Long )
With MultiPage1
Select Case .Value 
    Case 2, 4 : MsgBox "Hello"
End Select 
End With
End Sub

 

[kelly mort]

Private Sub MultiPage1_Click(ByVal Index As Long)
    Static LastPage As Long
    If MultiPage1.Value = 2 Then
        If LastPage <> 2 Then MsgBox "hi"
    ElseIf MultiPage1.Value = 4 then
        If LastPage <> 4 Then MsgBox "hi"
    End If
    LastPage = MultiPage1.Value
End Sub

Sure, this is also cute.

Regards
Kelly