Sub cellValue() Dim num1 As Integer Dim num2 As Integer num1 = Cells(1, 1).Value num2 = Cells(1, 2).Value Dim result As Boolean result = (num1 <= 10) And (num2 <> 50) Debug.Print result End Sub