Is this what you mean?
[vba]
'Conditional Formats, Looking for Friendly Fronts on Premium Collections Worksheet
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iColor As Long
Dim iColumn As Long
If Not Intersect(Target, Range("e24:g176")) Is Nothing Then
Select Case Target
Case "Dom. Republic", "Bolivia", "Paraguay", "Peru", "Costa Rica", "Nicaragua", "Panama"
iColor = 4
iColumn = 5
'Tarrif rated countries must be pre-approved or approved by superintendency
Case "Bangladesh", "Belarus", "Belgium", "Brazil", "Brunei", "China", "Dom. Republic"
iColor = 6
iColumn = 1
'Tarrif rated countries Guatemala must be approved by superintendency
Case "Guatemala"
iColor = 3
iColumn = 1
Case "Spain"
iColor = 14
iColumn = 7
Case "Uganda"
iColor = 6
iColumn = 5
Case "Virgin Islands US"
iColor = 6
iColumn = 3
Case Else
iColor = 20
iColumn = 78
End Select
Target.Offset(0, iColumn).Interior.ColorIndex = iColor
Target.Interior.ColorIndex = iColor
End If
End Sub
[/vba]