Private Sub Worksheet_Change(ByVal Target As Range)
Dim TRow As Integer
TRow = Target.Row
If Target.Column = 76 Then
If Target = "x" Then
Sheets("Main sheet").Rows(TRow).copy
Sheets("Closed Projects").Cells(Sheets("Closed Projects").Cells(Rows.Count, 2).End( _
xlUp).Offset(1, 0).Row, 1).PasteSpecial
Sheets("Main sheet").Rows(TRow).Delete Shift:=xlUp
End If
End If
End Sub
Gruß Jens