Existem diferentes formas. Como vc tem um texto com vários "", segue minha sugestão:
Sub test()
Dim msg() As String
msg() = Split("c:Usersf1600549DesktopVERIFICAÇÃO DE METAS.xlsm", "")
MsgBox msg(UBound(msg()))
End Sub
Abs
PS: as fórmulas que vc se referiu, em VBa:
PROCURAR() no VBA, use Instr
DIREITA() no VBA, use Right
NÚM.CARACT() no VBA, use Len
Como pode ver, não segui esta lógica.
Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.
Gilmar
Postado : 12/11/2014 2:52 pm