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