Chuck,
You're first post was sent, I can see it. You may be experiencing what
happened to me and apparently quite a few others some time ago. If you go
'Find' the post is there, but it doesn't show on the listings for some
reason. I use Outlook Express but I think it happens on Outlook too. I have
no idea why, I asked questions at the time but got no satisfactory answer,
Regards,
Alan.

"CLR" wrote in message
...
Being re-sent, apparently didn't go out the first time

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
' Returns specific value for given case-sensitive entry in A1
' can be modified to NOT be case-sensitive if desired
' by Chuck, CABGx3
If Not Target.Range("a1") Is Nothing Then
Select Case Range("A1").Value
Case "A"
Range("A1").Value = "Arnold"
Case "B"
Range("A1").Value = "Brendan"
Case "C"
Range("A1").Value = "Charlie"
Case Else
Range("A1") = ""
End Select
End If
End Sub

hth
Vaya con Dios,
Chuck, CABGx3



"Sandy" wrote:

Hi

Is it possible to have a cell value adjust depending what is typed into
it?
E.g. I want to be able to type A or B or C and have the value of the same
cell change to Arnold or Brendan or Charlie respectively.

Sandy