Вызов отдельной ячейки вместо диапазона

Question

Приведенный ниже макрос извлекает значение из ячейки, которая ссылается на диапазон, и затем действует соответствующим образом. Как я могу изменить это, чтобы запустить только дело для соответствующей записи в ячейке?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target.Address = "$C$5" Then
        Select Case Target.Value
        Case Phones4U, P4U
        Case MBNA, MBNA1
        'Case Is = O2, The_Problem_Network
        'Case Is = TMobile, TMobile
        'Case Is = 3, Run_3
        'Case Is = Orange, Orange
        'Case Is = Carphone_Warehouse, CPW
        'Case Is = Virgin_Media, VirginMedia
        'Case Is = Virgin_Mobile, VirginMobile
        'Case Is = Lifestyle_Group, LSG
        'Case Is = BT, BT
        'Case Is = Barclays, Barclays
        'Case Is = Nat_West, NatWest
        'Case Is = RBS, RBS
        'Case Is = Unipart, Unipart
        'Case Is = Vodafone_Group, Vodafone
    End Select
    End If
End Sub

Спасибо за вашу помощь.

Answer 1

Я думаю, что такой синтаксис должен работать без проблем

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$5" Then
        Select Case Target.Value
        Case "Phones4U"
                P4U
        Case "MBNA"
                MBNA1
        Case "O2"
                The_Problem_Network
       ' etc
    End Select
    End If

End Sub