Option Explicit Dim Position As Integer Private Sub Worksheet_Activate() Position = Me.Index End Sub Private Sub Worksheet_Calculate() If Me.Index <> Position Then MsgBox Me.Name & " wurde verschoben!" Position = Me.Index End If End Sub