Private Sub Worksheet_Change(ByVal Target As Range)
Target = Range("A8")
Select Case Target
Case "1"
Target = "Inform Family"
Case "2"
Target = "No Answer"
Case "3"
Target = "Redirect, Leave a msg"
End Select
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("A8") Then
Select Case Target
Case "1"
Target = "Inform Family"
Case "2"
Target = "No Answer"
Case "3"
Target = "Redirect, Leave a msg"
End Select
Else
Target = Target
End If