rhudenr,

Bom dia!

Veja se é assim.

Sub VerificaCaracter()
 Dim x As Long
 x = InStr([A1], ";")
 MsgBox x
End Sub

Se 'A1' contiver uva; banana; manga o código acima retornará 4, que é a posição da primeira ocorrência do ";".
Depois que você varrer a célula o código retornará zero.

Obrigado! As duas respostas ajudaram muito.

rhudenr,

De nada. Por gentileza, vote positivamente clicando na mãozinha existente ao lado da ferramenta CITAR. Se as duas respostas lhe foram úteis,vote positivamente nas duas. Não há qualquer problema.