https://www.todamateria.com.br/ponto-de-exclamacao-quando-usar/

Option Explicit

Sub percorrerColuna()
    
    Dim i As Long
    Dim num As Integer
    Dim j As Integer
    For i = 1 To Plan1.UsedRange.Rows.Count
        num = 0
        For j = 1 To Len(Plan1.Range("B" & i).Value)
            If Mid(Plan1.Range("B" & i).Value, j, 1) = ":" Then
                num = num + 1
            End If
            
        Next j
        If num > 4 Or num < 4 Then
            MsgBox "Erro. Foram encontradas " & num & " ocorrências na linha " & i
            Exit Sub
        End If
        
    Next i
    
    
End Sub

Outro código para a mesma tarefa:

Option Explicit

Sub percorrerColuna()
    Dim DLin As Long
    DLin = Range("B1").End(xlDown).Row
    Dim i As Long
    Dim num As Integer
    Dim j As Integer
    For i = 1 To DLin
        num = 0
        For j = 1 To Len(Plan1.Range("B" & i).Value)
            If Mid(Plan1.Range("B" & i).Value, j, 1) = ":" Then
                num = num + 1
            End If
            
        Next j
        If num > 4 Or num < 4 Then
            MsgBox "Erro. Foram encontradas " & num & " ocorrências na linha " & i
            Exit Sub
        End If
        
    Next i
    
    
End Sub

Obrigado! Só esqueci de um detalhe! Só queria ir até o B17, pq coloquei uns campos logo abaixo com outras info, e não queria arriscar checar elas...Poderia fazer essa gentileza? Acho que só falta isso!

Option Explicit

Sub percorrerColuna()
    
    Dim i As Long
    Dim num As Integer
    Dim j As Integer
    Dim cl As Object
    Dim intervalo As Range
    Set intervalo = Plan1.Range("B1:B17")
    For Each cl In intervalo
        num = 0
        For j = 1 To Len(Plan1.Range("B" & cl.Row).Value)
            If Mid(Plan1.Range("B" & cl.Row).Value, j, 1) = ":" Then
                num = num + 1
            End If
            
        Next j
        If num > 4 Or num < 4 Then
            MsgBox "Erro. Foram encontradas " & num & " ocorrências na linha " & cl.Row
            Exit Sub
        End If
    Next cl
    
    
    
End Sub


Option Explicit

Sub percorrerColuna2()
    
    Dim i As Long
    Dim num As Integer
    Dim j As Integer
    For i = 1 To 17
        num = 0
        For j = 1 To Len(Plan1.Range("B" & i).Value)
            If Mid(Plan1.Range("B" & i).Value, j, 1) = ":" Then
                num = num + 1
            End If
            
        Next j
        If num > 4 Or num < 4 Then
            MsgBox "Erro. Foram encontradas " & num & " ocorrências na linha " & i
            Exit Sub
        End If
        
    Next i
    
    
End Sub

Option Explicit

Sub percorrerColuna() 

Dim i As Long
    Dim num As Integer
    Dim j As Integer
    Dim cl As Object
    Dim intervalo As Range
    Set intervalo = Plan1.Range("B3:B17")
    For Each cl In intervalo
        num = 0
        For j = 1 To Len(Plan1.Range("B" & cl.Row).Value)
            If Mid(Plan1.Range("B" & cl.Row).Value, j, 1) = ":" Then
                num = num + 1
            End If
           
        Next j
        If num > 3 Or num < 3 Then
            MsgBox "Erro. Foram encontradas " & num & " ocorrências na linha " & cl.Row
            Exit Sub
        End If

Tive que fazer algumas alterações, e ela me fala q a linha 5 esta com 0 ocorrências, provavelmente pq verificou...Como introduzo um WhileNotEmpty nessa situação?

Edit: consegui resolver assim: If (num > 3 Or num < 3) And Plan1.Range("B" & cl.Row).Value <> "" Then

Edit2: Agora o plano é fazer ele dizer a linha do erro! B3,B4 etc...
(MsgBox "Revise todas as informações do Cross e tente novamente! Existem campos dos saltos com informação extra ou faltando!" + vbCrLf + vbCrLf + "Verifique: B" & cl.Row, vbCritical, "ATENÇÃO:")