Valor em células para executar macro

Boa tarde pessoal,

Preciso de uma macro que verifique se há um determinado valor em um intervalo de células, se a macro encontrar o valor X ela executa outra macro.
EX: Se a "Macro A" achar os valor 5 ou 6 nas céluas A1:A200 (Celulas A1 até A200), executa "Macro B".

Quero destacar que tem que ser em um intervalo de células, e sem somar o valor de uma com a outra.

Chegei a fazer uma rotina:

Selec Case Range("A1").Value
Case "5": MsgBox "Cinco"
Case "6": MsgBox "Seis"
End Select

Porem verifica somente o valor da A1, quando tentei colocar Range("A1:A200"), apresentou erro em tempo de execução "13" Tipos imcompátiveis.

Boa noite!!!

Caso necessário poste seu exemplo...

...Veja se é isso.

Código:

Sub Valor_ExcutarMacro()
        Dim kf As Long,

        Sheets("Plan1").Select
        Qtde = [A2].CurrentRegion.Rows.Count
        kf = 2
        For i = 2 To Qtde
        If Sheets("Plan1").Cells(i, "A").Value = 5 _
            And (Sheets("Pan1").Cells(i, "A").Value = 6) Then
                Call SuaMacroB 'Aqui (na cor de fonte negro), terá o nome da "Macro B"
          ks = ks + 1
            End If
         
        Next
       
    End Sub

Dê retorno...At++++

Alexandre boa noite,
Apresentou erro na sintaxe (Dim kf As Long,).

Mas cara muito obrigado pela atenção, até que enfim consegui achar a solução para o problema:

Código:

Sub buscavalor2()

    Dim UltimaLinha As Long

    'Grava a ultima linha preenchida
    UltimaLinha = Cells(Rows.Count, 7).End(xlUp).Row

    'Percorre a lista
    For i = 1 To UltimaLinha
        'Verifica se o valor é 5
        If Cells(i, 7).Value = 5 Then
            'Roda a macro
            Macro3
        'Verifica se o valor é 6
        ElseIf Cells(i, 7).Value = 6 Then
            'Roda a macro
            Macro2
        End If
    Next
End Sub

Abraço.

Bom dia!!!

..Erikson antes havia feito um pequeno teste e funcionou, depois tive que editar o topico por isso ficou uma virgula -->Dim kf As Long, <---
O que deve ter gerado o erro.

Mas o que importa é que além de ter retornado resolveu seu problema..valeu..parabéns

Até a próxima
At...