Need help on Select Case
I am using a large number of ElseIf statements, and running into
problems. I was informed to use Select Case instead. However I am
not familiar with the Select Case syntax.
I have written below a small sample of my ElseIf statement, can
someone please write the equivalent in Select Case syntax.
Thank you in advance,
Susan
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [b6] = "United Kingdom" And [b62] = "USD" Then
[b16] = [r13]
[b17] = [a1] * [b1]
ElseIf [b6] = "United Kingdom" And [b62] = "CAD" Then
[b16] = [p13]
[b17] = [a2] * [b2]
ElseIf [b6] = "Hong Kong" And [b62] = "USD" Then
[b16] = [r2]
[b17] = [a6] * [b6]
ElseIf [b6] = "Hong Kong" And [b62] = "CAD" Then
[b16] = [p2]
[b17] = [a7] * [b7]
Else:
[b16] = ""
[b17] = ""
End If
End Sub
|