Right click sheet tabview codeinsert this to do what you said.
However, I suspect you want a bit more to involve a larger target range and
more choices. You would want a select case statement.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1")) Is Nothing Then
If UCase(Target) = "B" Then Target = "Brazil"
End If
End Sub


--
Don Guillett
SalesAid Software

wrote in message
oups.com...
Hi,

I am not sure but there maybe a really easy way to do this. If a user
enters "B" in cell A1 how could I automatically change the "B" to
"Brazil" for example?

I am looking to create a calendar so when the users enters "B" for a
given date "Brazil" will appear instead of "L".

Thanks,

Brett