vba cel bereik controleren

[popipipo]

Met een macro zet ik een waarde in een cel.
Deze macro mag echter alleen functioneren in cel bereik B4:F50

Sub schrijf()
    If ActiveCell.Range("<>B4:F50") Then 'controle schrijf bereik 
    End If
        ActiveCell.FormulaR1C1 = "ja"
ActiveCell.Offset(, 7).Select
End Sub

Deze werkt echter niet, wat moet er aangepast worden.

 

[wampier]

if not intersect(Activecell,[b4:f50]) is nothing then
 doe iets
end if

 

[popipipo]

Het werkt naar behoren
Bedankt daarvoor.