Problem mit ActiveCell

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'Hellblauer Kreuz

    If Selection.Rows.Count > 100000 Or Selection.Columns.Count > 1000 Then

        'nichts

    Else

        Selection(Selection.Count).Activate

    End If

    Target.Calculate  

End Sub

Sub Test()

        Application.EnableEvents = False

        Intersect(Selection, ActiveCell.EntireRow).Select

        Application.EnableEvents = True

            Selection = 1

End Sub