Range begrænser

hej. troede efterhånden godt jeg kunne lave det meste uden hjælp fra eksperten, men nej :-)

Skal bruge en makro der tvinger brugeren til at holde activecell inden for en range. Har fedtet lidt med den her, men det virker ikke.
---------------------------------

Sub active_cell()

Dim omrode As Range
Dim celle As String

omrode = Range("B9:F38")
celle = Range("D2")

If ActiveCell <> omrode Or celle Then

Range("B9").Activate

End If

End Sub