Did you try it?????????????????????

I have found that it helps me to write  my functions in real words --
test that both ltpB and ltqB are empty strings, if so then check to make
sure that ltpB is not equal to TopB AND ltqB is not greater than MaxQ.
You may want to nest the two functions much like you would do in an
Excel Function, first testing IF both ltpB and ltqB are not empty
strings then test for IF ltpB is not equal to TopB and ltqB is not
greater than Max Q do something.


Dim TopB As Single
Dim MaxQ As Single
MaxQ = 1

If ltpB <> "" And ltqB <> "" Then
If ltpB <> TopB And ltqB > MaxQ Then
DO SOMETHING
Else
DO SOMETHING ELSE
End If

Although Help says: "Used to perform a logical conjunction on two
expressions." there's nothing to stop you stringing several ANDs together.

To test, I tried the following: Enter 1,2,3,4,5 in cells A1:E1
respectively.
1. This formula in another cell:
=AND(A1=1,B1=2,C1=3,D1=4,E1=5)
returns TRUE
2. In vba:
If Range("A1") = 1 And Range("B1") = 2 And Range("C1") = 3 And
Range("D1") = 4 And Range("E1") = 5 Then MsgBox "True!"
(That's all one line) pops up the message box.
3. If you want to stick with the way the worksheet AND works then also
in vba:
If Application.WorksheetFunction.And(Range("A1") = 1, Range("B1") = 2,
Range("C1") = 3, Range("D1") = 4, Range("E1") = 5) Then MsgBox "True too!"
(Likewise one line) also pops up the message box.

If I changed any value in any of the cells A1:E1,
Item 1 returned FALSE, items 2 and 3 did not pop up a message box.

All of your suggestions and
guidance have been very helpful. Rhonda's suggestion helped me
understand the difference between a Block If and a single-line form
If and find mistakes I was making there. David and Pascal, your
suggestions helped me understand that my mistake was not with AND but
with the scope of my variable. Everytime I was cycling through my
function my variable was losing its value so of course the AND was
not doing what I wanted it to.