Hi Paolo,

Perhaps the following procedure will
be of assistance:

'===========
Public Sub Tester()
Dim Rng As Range
Dim rng2 As Range

With ActiveSheet
Set Rng = .Range("A1")
Set rng2 = .Range("A2")
End With

Rng.Value = 10
rng2 = 20

If Rng = 10 _
And rng2 = 10 Then
MsgBox Prompt:="Both = 9"
End If

If Rng = 10 _
Or rng2 = 10 Then
MsgBox Prompt:="At least one value = 10"
End If

End Sub
'<<===========



---
Regards.
Norman


"N+" wrote in message
...
hi all !! how can i do the AND , OR function of worksheet
in the vbe ??
ty for helping !!
paolo