Teste a Macro e verifique se ajuda:

Sub Placas()

Dim Placas As String

i = 5
f = Range("A65536").End(xlUp).Row

Do While i <= f
If Cells(i, 8) >= 0 Then
i = i + 1
Else
placa = placa & Cells(i, 1) & Chr(13)
i = i + 1
End If
Loop

MsgBox (placa)

End Sub

Edson, boa tarde! Primeiramente, obrigado pela ajuda.

Porém, não entendi este macro. Creio que não expliquei exatamente o que precisava.

Nas colunas "H,N,T,Z,AF,AL e AR" eu preciso que indique quando ele estiver vencido(negativo) e indique também a placa. Por exemplo, a placa "AAA", ela esta vencida na planilha em que coloquei como exemplo. Queria que ao abrir a planilha, ele indicasse que a placa "AAA" estivesse vencida. Ou quando tiver mais placas vencidas, ele ir me indicando e citando o "Título" da Coluna - Ex: "Filtro Caminhão, Filtro Thermo King" "Embreagem" para termos conhecimento rápido da troca que necessitamos realizar e a placa.

Não consegue adaptar a sua macro de acordo.

Aguardo seu retorno se possível!

Veja agora. Lista as Placas e o indicador que está negativo.

Muda o nome da chamada em Workbook_Open

Sub Placas()

Dim Placas As String

col = 8
i = 5
f = Range("A65536").End(xlUp).Row

Do While i <= f
Do While col <= 44
If Cells(i, col) >= 0 Then
col = col + 6
Else
placa = placa & Cells(i, 1) & ": " & Cells(1, col - 4) & Chr(13)
col = col + 6
End If
Loop
col = 8
i = i + 1

Loop

MsgBox (placa)

End Sub