Veja se esta sugestão atende:
Cole o codigo abaixo, no vbe da sua planilha(aba)

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim c As Range
    Dim ct_v As Integer
    Dim end_1 As String
    
    With Worksheets("Plan1") 'Altere se necessario
    
        Set rng = .Range("e16:z16")
        
        If Not Intersect(Target, rng) Is Nothing Then
            
            Set c = rng.Find("*v*", LookIn:=xlValues)
            If Not c Is Nothing Then
                end_1 = c.Address
                Do
                    ct_v = ct_v + 1
                    If ct_v > 1 Then
                        c.Interior.ColorIndex = 3
                        
                        MsgBox "Somente uma letra 'v' é permitido", "", ""
                        c.ClearContents
                        c.Interior.ColorIndex = xlNone
                        
                    End If
                    Set c = rng.FindNext(c)
                    Loop While Not c Is Nothing And c.Address <> end_1
                End If
            End If
            
        End With
End Sub

ivobruno,

Boa noite!

Pedimos, por gentileza, atentar para o local de postagem de suas mensagens.Você não é mais um usuário novato pois essa já é a sua quinta mensagem.

Movi sua mensagem para o local correto VBA & Macros pois o local onde postou é destinado apenas a apresentação de novos usuários.

Se resolveu, marque como resolvido na parte que te ajudou.

Veja se ajuda. Usei validação de dados, sem necessidade de código VBA.