Try something like

Dim R As Double
R = Rnd()
If R < 0.5 And R 0.1 Then
Debug.Print "Yes"
Else
If R 0.5 And R < 0.9 Then
Debug.Print "Yahoo"
Else
Debug.Print "No"
End If
End If



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

"ExcelMonkey " wrote
in message ...
I use "IF And" statments in excel alot. But in VBA I dont
think you
don't use the brackets with "IF AND". How would your write the
following in VBA?




=IF(AND(RAND()<0.5,RAND()0.1,),"Yes",IF(AND(RAND( )0.5,RAND()<0.
9,),"Yahoo","No"))

Note you will have to replace the excel rand() function with
the VBA
rnd() function.


---
Message posted from http://www.ExcelForum.com/