Sub test()
Dim one As Boolean, two As Boolean, three As Boolean
one = True
two = False
three = True

If Not one * two * three Then
MsgBox "not all true"
Else
MsgBox "all true"
End If

End Sub

"Dan Thompson" wrote in message
...
The following code should pop up a message box but it is not doing so
where
am I going wrong ?


Sub test()
Dim one As Boolean, two As Boolean, three As Boolean
one = True
two = True
three = False

If Not one = True And Not two = True And Not three = False Then
MsgBox "One or more of the 3 conditions are false"
End If
End Sub

Dan Thompson