Run code on any selection from validation list

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$4" Then Call mcrpasteformulaandcommentlist
End Sub