Boa noite Ned,

Acho que daria para fazer usando o evento Worksheet_Change, mas para que tipo de trabalho você necessita dessas cronometragem?

att,

Olá brunoxro,
Fico muito agradecido pela atenção!
Na verdade estou tentando controlar o tempo que é gasto para executar um procedimento dentro da planilha Ex:Imprimir,copiar e gravar alguns códigos em um determinado tempo,e esse tempo de atendimento é de 3 horas,então eu vou usar como gestão visual,não só para mim e sim para todos os outros usuários,se possível deixar com cores graduais para melhor visualização.Por isso agradeço mais uma vez a atenção de vocês para conosco.Tentei acrescentar a planilha aqui , mas to apanhando um pouco!

Enquanto aguardamos deu exemplo, de uma olhada no link abaixo, é só fazer o ajuste para rodar a macro quando alterar a celula utilizando o Evento Change.

Como inserir um cronômetro de contagem regressiva em uma planilha do Excel
http://ptcomputador.com/Software/micros ... 35372.html

[]s

Olá Mauro,
Visualizei o link,pra mim é um bicho de sete cabeças , joguei o código aqui na planilha e é por ai , porém não sei como adaptar para minha necessidade , me desculpe! Muito obrigado!

Ola
Segue minha planilha , preciso trabalhar com as colunas da aba "relatorio" e que estão com cores diferentes.
Fico grato pela atenção.

Https://www.sendspace.com/file/flgh2v

Boa noite
Amigos encontrei o código abaixo que já me atenderia,porem me da um erro."A variável do objeto ou a variável do bloco 'With' não foi definida."

Sub MrE()
Dim rng As Range, cell As Range
DoEvents

For Each cel In Range("L2:L" & Range("L" & Rows.Count).End(xlUp).Row)
    If cell.Value >= "03:00:01" And cell.Offset(, 2).Value = 1 Then
    
           If Not rng Is Nothing Then
            Set rng = Union(rng, cel)
       Else
        Set rng = cell
   End If
      End If
      
      
Next cel
rng.EntireRow.Interior.Color = vbBlack
rng.EntireRow.Font.Color = vbWhite
rng.EntireRow.Interior.Color = vbWhite
rng.EntireRow.Font.Color = vbBlack
Set rng = Nothing
Set cell = Nothing
Call MrE
End Sub

Outra necessidade é que seja acionada ao clicar na planilha.Esqueci de mencionar que o excel que vou utilizar é o 2003.
Fico grato pela atenção