Setting tab order, adding ability to stop/start code and refine functionality

[snb]

Private Sub Worksheet_Change(ByVal Target As Range)
 If target.address & target ="$C$4" Then
   Application.EnableEvents = False
   target = "Choose"
   Application.EnableEvents = True
 End If
End Sub

You'd better use a Userform.