Senhores, Boa Tarde!

Visito o Forum a algum tempo, até o momento encontrei todas as soluções em Topicos feitos pelos colegas, porem agora estou com um probema que não consegui encontrar uma solução.

Sou um usuario Basico, então me desculpe se fiz alguma coisa errado.

Preciso criar um "Painel" para verificar equipamentos liganos na rede. Consegui um codigo que valida o IP pelo comando ping do commad, caso esteja ligado retorna com o valo 1 e desligado valor 0.

Minha intensão era criar um painel que estive com a descrição do equipamento, IP e uma bolinha piscando Verde ou vermelho caso o resultado seja 1 (Ligado) ou 0 (desligado).

Ou seja, se o "led" Estiver piscando verde, o equipamento esta ligado se piscando vermelho equipamento desligado.

Não tive muito sucesso em criar os led, então resolvi fazer o processo preenchendo a celula "Piscando" (Codigo Abaixo)

Duvidas e problemas que tive:

1 - Não consegui extender a validação para a coluna inteira, apenas para a celula. Consegui piscar apenas 1 celula não consegui que validasse as demias celulas.
2 - Agora no final não consigo ativar a cor vermelha, ele fica pensando e trava o excel.

Qualquer dica, ajuda, informação ou melhoria é bem vinda.

Codigo :

Sub Pisca_c1Green()
Dim start
Dim PauseTime

start = Timer
PauseTime = 0.5

Do While Timer < start + 10 'loop eterno
If Range("c1") >= 0.9 Then 'pisca
If Range("C1").Interior.ColorIndex = xlNone Then
Range("C1").Interior.ColorIndex = 50
Do While Timer < start + PauseTime
DoEvents ' submete a outros processos.
Loop
start = Timer
End If
If Range("C1").Interior.ColorIndex = 50 Then
Range("C1").Interior.ColorIndex = xlNone
Do While Timer < start + PauseTime
DoEvents ' submete a outros processos.
Loop
start = Timer
End If
Else
Range("C1").Interior.ColorIndex = xlNone
Call Pisca_c1Red
End
End If
Loop
End Sub

Sub Pisca_c1Red()
Dim start
Dim PauseTime

start = Timer
PauseTime = 0.5

Do While Timer < start + 10 'loop eterno
If Range("C1") <= 0.9 Then 'pisca
If Range("C1").Interior.ColorIndex = xlNone Then
Range("C1").Interior.ColorIndex = 15
Do While Timer < start + PauseTime
DoEvents ' submete a outros processos.
Loop
start = Timer
End If
If Range("C1").Interior.ColorIndex = 15 Then
Range("C1").Interior.ColorIndex = xlNone
Do While Timer < start + PauseTime
DoEvents ' submete a outros processos.
Loop
start = Timer
End If
Else
Range("C1").Interior.ColorIndex = xlNone
Call Pisca_c1Green
End
End If
Loop
End Sub