Bom dia!!

Não testado!

Sub Procura()
    Dim procurado As String
    Dim result As VbMsgBoxResult
    Dim i, QuantPlanilhas As Integer
    
    QuantPlanilhas = ThisWorkbook.Worksheets.Count
     
    procurado = InputBox("Digite o valor a ser procurado", "Pesquisa valor", "Exemplo:  1, 2, texto")
    
    For i = 1 To QuantPlanilhas Step 1
        
       With Worksheets(i).Range("A:IV")
           
            Set c = .Find(procurado, LookIn:=xlValues)
            
            If Not c Is Nothing Then
                Worksheets(i).Select
                Range(c.Address).Select
                result = MsgBox("Deseja continuar a busca?", vbYesNo, "Continuar?")
               
                If result = vbNo Then
                    Exit Sub
                End If
                Else
                MsgBox "Não encontrado!"
            End If
        End With
    Next
End Sub

Infelizmente não funcionou. Ele retorna sempre "Não encontrado", mesmo havendo o valor na planilha.

Bom dia, tem como anexar tua planilha ?

at

Tenta trocar essa linha

Set c = .Find(procurado, LookIn:=xlValues) POR ESSA >>> Set c = .Find(procurado, lookat:=xlWhole), existe uma falha no código

na linha >>> Range(c.Address).Select <<< precisa do . pra referencia o with <<< .Range(c.Address).Select >>>

ATT

Depois de tanto quebrar a cabeça, finalmente consegui.
Valeu alexandrevba pela ajuda.

Procura()
    Dim procurado As String
    Dim result As VbMsgBoxResult
    Dim i, QuantPlanilhas As Integer
    
    QuantPlanilhas = ThisWorkbook.Worksheets.Count
     
    procurado = InputBox("Digite o valor a ser procurado", "Pesquisa valor", "Exemplo:  1, 2, texto")
    
    For i = 1 To QuantPlanilhas Step 1
        
       With Worksheets(i).Range("A:IV")
           
            Set c = .Find(procurado, LookIn:=xlValues)
          'ALTERAÇÃO  
        ''''''''''''''''''''''''
	If c Is Nothing Then 'caso não encontrar o codigo
                If i = QuantPlanilhas Then
                  
                    MsgBox "O conteúdo " & codigo & " não foi encontrado em nenhuma planilha. "
                End If
            Else 'caso o codigo procurado tenha sido encontrado
            Worksheets(i).Select
                Range(c.Address).Select
                                
                If MsgBox("Deseja continuar?", vbYesNo) = vbNo Then End
                
            End If

	    ''''''''''''''''''''''''''''
	'REMOVIDO
            'If Not c Is Nothing Then
                  'Worksheets(i).Select
                'Range(c.Address).Select
                'result = MsgBox("Deseja continuar a busca?", vbYesNo, "Continuar?")
               
                'If result = vbNo Then
                    'Exit Sub
                'End If
            'End If
	''''''''''''''''''''''''''''
        End With
    Next
End Sub

Tenta trocar essa linha

Set c = .Find(procurado, LookIn:=xlValues) POR ESSA >>> Set c = .Find(procurado, lookat:=xlWhole), existe uma falha no código

na linha >>> Range(c.Address).Select <<< precisa do . pra referencia o with <<< .Range(c.Address).Select >>>

ATT

Markos, desculpe na ansiedade não vi sua reposta e acabei postando direto. Mais valeu por sua ajuda. Vou alterar e os códigos e ver se também funciona aqui.

abraço.