I have these code and it works find: but i also want to use it for a different culumn within the same sheet. how do i add Column D with a different target? meaning "S" for Study and "B" for books and so on...

and maybe adding a Msg box to it that will only allow the Letters i specify..
thank you in advance..

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "" Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("c6:c50")) Is Nothing Then
If UCase(Target) = "C" Then
Target = "Contribution"
Else
If UCase(Target) = "D" Then
Target = "Deposits"
Else
If UCase(Target) = "N" Then Target = "N/A"
End If
End If
End If
End Sub