patriklive

Boa tarde, Estou tentando excluir o texto a partir do hifen de uma coluna encontrei um código que resolve parte do problema. Estou tendo dificuldade porque no critério vPOS estou recebendo a mensagem de "tipos incompatíveis". Queria ajuda pra tentar entender aonde está o problema. Dim W As Worksheet Dim vRNG As Range Dim vCel As Range Dim vPos As Integer Dim vtexto As String Set W = Sheets("Base SAP") W.Select W.Range("AT1").Select Set vRNG = Columns("AT:AT") vRNG.Select vtexto = InputBox("Informe o caracter que deverá ter o tratamento?") If Not vtexto = Empty Then For Each vCel In vRNG vCel.Select vPos = InStr(1, UCase(vCel.Value), UCase(vtexto)) If vPos > 0 Then vCel.Value = Trim$(Mid$(vCel.Value, 1, vPos)) End If Next vCel Else MsgBox "O critério está em branco" End If MsgBox "Processo concluído" End Sub