Seu modelo tem algumas rotinas de pesquisa e até no formulário, fiquei em dúvida em qual quer a adaptação, então fiz um ajuste somente para a pesquisa da aba "MAPA", mas é fácil ajustar para as outras.

Em seu Módulo2 troque todas as instruções pelas a abaixo, faça os testes e qq duvida retorne.

Option Explicit

Dim rgCell
Dim vrCor

Sub Pesquisar_Mapa()
    Dim sbx
    Dim SBY
    
    Dim x As Range
    
    On Error Resume Next
    
    sbx = InputBox("Digite o ramal desejado", "Pesquisar")
    
    With ThisWorkbook.Sheets("Mapa").Range("A1:AZ92")
        Set SBY = .Find(sbx, , xlValues, xlWhole, , , False)
    End With
    
    If Not SBY Is Nothing Then
        
        'Variavel Cor e Range
        vrCor = 4 'Cor a piscar
        rgCell = SBY.Address(False, False)
    
    SBY.Select
    
    'Chamada rotina piscar celula
    Call PiscaCelula
    
    'Tomada de decisão em caso de não haver nenhum resultado
    Else
     MsgBox ("Ramal não Encontrado!")
    End If
    
End Sub

    Sub PiscaCelula()
    Dim x As Long
    Dim pausa
    Dim inicio
        
        For x = 1 To 5 'total de piscadas
            pausa = 0.2 'duração da pausa entre as piscadas em segundos
            inicio = Timer ' hora inicial
            
            Do While Timer < inicio + pausa
              DoEvents
            Loop
                     
                'Formata Cor do Interior da celula
                If Range(rgCell).Interior.ColorIndex = xlNone Then
                    Range(rgCell).Interior.ColorIndex = vrCor 'pinta célula de vermelho
                Else
                 Range(rgCell).Interior.ColorIndex = xlNone 'Nenhuma Cor
                End If
        Next x
    
                Range(rgCell).Interior.ColorIndex = xlNone 'Devolve a cor original
    
    End Sub

[]s

Perfeito. Fiz os ajustes básicos e funcionou corretamente.
Muito Obrigado pela ajuda Mauro Coutinho.

Tópico Resolvido!