I am having difficulty with the following IF statement I wrote in VBA:

I needed to enter another country (Thailand) to my list of original
countries as follows:

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

However when the word Thailand was entered on cell B6 it did not
execute the needed results in cells B60, B61 and B63, even though it
would work when I entered all the other countries names in cell B6. I
do not understand why this happened?

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 part shown above entered here***

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

End Sub