これじゃダメかい?
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 Sh.Selection.Active
End Sub