I am trying to add an addition piece of code to my original IF
statement I wrote a week ago by adding another country to it as
follows:

ElseIf country = "Thailand" Then
Cells(60, "B") = "TB"
Cells(61, "B") = "Thailand Batt"
Cells(63, "B") = "THB"

However, when I inserted this into the original, IF Statement and
entered the word Thailand to cell B6 it did not work. But I could get
the needed result in cells B60, B61, and B63 when I entered all the
other countries names in cell B6.

I don't understand why this is happening?

Susan


__________________________________________________ _______

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim country As String
country = Cells(6, "B").Value
If country = "United Kingdom" Then
Cells(60, "B") = "LN"
Cells(61, "B") = "British Pound"
Cells(63, "B") = "GBp"
ElseIf country = "Hong Kong" Then
Cells(60, "B") = "HK"
Cells(61, "B") = "Hong Kong Dollar"
Cells(63, "B") = "HKD"
ElseIf country = "Australia" Then
Cells(60, "B") = "AU"
Cells(61, "B") = "Australian Dollar"
Cells(63, "B") = "AUD"
ElseIf country = "Belgium" Then
Cells(60, "B") = "BB"
Cells(61, "B") = "Euro"
Cells(63, "B") = "EUR"
ElseIf country = "Denmark" Then
Cells(60, "B") = "DC"
Cells(61, "B") = "Danish Krone"
Cells(63, "B") = "DNK"
ElseIf country = "Finland" Then
Cells(60, "B") = "FH"
Cells(61, "B") = "Euro"
Cells(63, "B") = "EUR"
ElseIf country = "France" Then
Cells(60, "B") = "FP"
Cells(61, "B") = "Euro"
Cells(63, "B") = "EUR"
ElseIf country = "Germany" Then
Cells(60, "B") = "GR"
Cells(61, "B") = "Euro"
Cells(63, "B") = "EUR"
ElseIf country = "Italy" Then
Cells(60, "B") = "IM"
Cells(61, "B") = "Euro"
Cells(63, "B") = "EUR"
ElseIf country = "Japan" Then
Cells(60, "B") = "JT"
Cells(61, "B") = "Japanese Yen"
Cells(63, "B") = "JPY"
ElseIf country = "Netherlands" Then
Cells(60, "B") = "NA"
Cells(61, "B") = "Euro"
Cells(63, "B") = "EUR"
ElseIf country = "New Zealand" Then
Cells(60, "B") = "NZ"
Cells(61, "B") = "New Zealand Dollar"
Cells(63, "B") = "NZD"
ElseIf country = "Norway" Then
Cells(60, "B") = "NO"
Cells(61, "B") = "Norwegian Krone"
Cells(63, "B") = "NOK"
ElseIf country = "Singapore" Then
Cells(60, "B") = "SP"
Cells(61, "B") = "Singapore Dollar"
Cells(63, "B") = "SPD"
ElseIf country = "South Africa" Then
Cells(60, "B") = "SJ"
Cells(61, "B") = "South African Rand"
Cells(63, "B") = "RAD"
ElseIf country = "Spain" Then
Cells(60, "B") = "SM"
Cells(61, "B") = "Euro"
Cells(63, "B") = "EUR"
ElseIf country = "Sweden" Then
Cells(60, "B") = "SE"
Cells(61, "B") = "Swedish Krona"
Cells(63, "B") = "SEK"
ElseIf country = "Switzerland" Then
Cells(60, "B") = "SW"
Cells(61, "B") = "Swiss Franc"
Cells(63, "B") = "CHF"

***Missing piece of code shown above entered here***

Else: Cells(60, "B") = ""
Cells(61, "B") = ""
Cells(63, "B") = ""
End If

End Sub