Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo ErrHandler:
Select Case Target.Column
Case 2
If Cells(ActiveCell.Row, 1) = "" Then
Cells(ActiveCell.Row, 1) = Date
End If
If Cells(ActiveCell.Row, "M") = "" Then
Cells(ActiveCell.Row, "M") = Date + 1.625
End If
Case 12
If Cells(ActiveCell.Row, 1) <> "" Then
If Target = "" Then
Target.Value = Cells(ActiveCell.Row, "M") - 1
Target.Interior.ColorIndex = 41
Select Case Weekday(Target.Value, 2)
Case 1
sText = "Monday"
Case 2
sText = "Tuesday"
Case 3
sText = "Wednesday"
Case 4
sText = "Thursday"
Case 5
sText = "Friday"
Case 6
sText = "Saturday"
Case 7
sText = "Sunday"
End Select
Target.AddComment sText
Else
If Target.Interior.ColorIndex <> 41 Then
Target.Interior.ColorIndex = 41
Else
Target.Interior.ColorIndex = xlNone
End If
End If
End If
Case 14
If Cells(ActiveCell.Row, "M") <> "" And Target = "" Then
Target.Value = Date + Time
Cells(ActiveCell.Row, "L").Interior.ColorIndex = xlNone
End If
Case 15
If Cells(ActiveCell.Row, "M") <> "" And Target = "" Then
If Cells(ActiveCell.Row, "N") <> "" Then
Target.Value = Date
Else
Cells(ActiveCell.Row, "N") = Date
Target.Value = Date
End If
End If
Case 17
If Cells(ActiveCell.Row, "O") <> "" And Target = "" Then
Target.Value = Date
End If
End Select
ErrHandler:
'If Err.Number = 9 Then
'End If
End Sub