Adding extra case to macro...

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
For Each cell In Target
    With cell
        Select Case cell.Column
            Case 10     'column J changed
                Cells(.Row, 9) = Range("M3").Value
            Case 11     'column K changed to disposed
                If LCase(.Value) = "disposed" Then
                    Cells(.Row, 12) = Date
                    Cells(.Row, 9) = Range("M3").Value
                    .EntireRow.Copy Worksheets("Disposed").Cells(Rows.Count, 1).End(xlUp)(2, 1)
                    .EntireRow.Delete
               elseif .value = "john" then
                    msgbox "name is john"
               End If
        End Select
    End With
Next cell
Application.EnableEvents = True

End Sub

i'm sorry, english is not my langage, can you explain in other words ?

Hi, mmcgrail,

your chosen example differs a lot from the code you supplied in the Opening Post - I think you would like to keep the other checks as well:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngCell As Range

Application.EnableEvents = False

For Each rngCell In Target
  With rngCell
    Select Case rngCell.Column
      Case 10     'column J changed
        Cells(.Row, 9) = Range("M3").Value
      Case 11     'column K changed to disposed
        If LCase(.Value) = "disposed" Then
          Cells(.Row, 12) = Date
          Cells(.Row, 9) = Range("M3").Value
          .EntireRow.Copy Worksheets(Target.Value).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
          .EntireRow.Delete
        ElseIf LCase(.Value) = "cancelled" Then
          .EntireRow.Delete
        ElseIf LCase(.Value) = "postponed" Then
          Cells(.Row, 12) = Date
          Cells(.Row, 9) = Range("M3").Value
          .EntireRow.Copy Worksheets(Target.Value).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
        End If
    End Select
  End With
Next rngCell
Application.EnableEvents = True

End Sub

Ciao,
Holger

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
  If .Cells.Count > 1 Or .Value = "" Then Exit Sub
  If .Column = 11 And LCase(.Value) <> "red" And LCase(.Value) <> "blue" Then
    MsgBox "only 2 options allowed, red or blue"
    Target.ClearContents
    Target.Select
  End If
End With
End Sub

Hi, mmcgrail,

like this?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngCell As Range

Application.EnableEvents = False

For Each rngCell In Target
  With rngCell
    Select Case rngCell.Column
      Case 10     'column J changed
        Cells(.Row, 9) = Range("M3").Value
      Case 11     'column K changed to disposed
        If LCase(.Value) = "disposed" Then
          Cells(.Row, 12) = Date
          Cells(.Row, 9) = Range("M3").Value
          .EntireRow.Copy Worksheets(Target.Value).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
          .EntireRow.Delete
        ElseIf LCase(.Value) = "cancelled" Then
          .EntireRow.Delete
        ElseIf LCase(.Value) = "postponed" Then
          Cells(.Row, 12) = Date
          Cells(.Row, 9) = Range("M3").Value
          .EntireRow.Copy Worksheets(Target.Value).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
        Else
          MsgBox "'" & Target.Value & "' isnīt known for this case"
        End If
    End Select
  End With
Next rngCell
Application.EnableEvents = True

End Sub

Ciao,
Holger