If activecell.value=40 and range("A30").value=60 then
'condition tests as true
'#####################################
' not sure if you meant 60 in quotes though!
'#####################################
end if