Example that activates cell A1 whenever the sheet is activated:
Private Sub Worksheet_Activate()
Range("A1").Activate End Sub
Worksheet Deactivate event Private Sub Worksheet_Deactivate()
MsgBox "You must stay on Sheet1"
Sheets("Sheet1").Activate End Sub