Warum?Code funzt nicht

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveSheet.Range("Y12") > 0 Then     'Zelle befindet sich in Tabelle 1
Dim Yes As VbMsgBoxResult
Yes = MsgBox("Sie müssen Details angeben!", vbOKOnly + vbExclamation, "Protokolltext")
If Yes = 1 Then Tabelle2.Select
ActiveSheet.Rows.AutoFit           'bis hierhin funktioniert's
If ActiveCell.Value > 0 Then Tabelle1.Select      'hier passiert nichts
End If
End Sub