Olá, post um modelo ou pelo menos o codigo pra facilitar a compreenção.

=SE(PROCURAR("/";A1);MUDAR(A1;PROCURAR("/";A1);1;"-");A1)

Aff, agora que vi direito e vi que é no nome do arquivo.

:/

Boa a linha sugerida pelo Sparcools, mas como opção diretamente no código, claro que, encaixando nos passos adequados da Macro:

Sub NomeArquivo()

arquivo = Range("A1")
On Error GoTo ErroNome
n = Application.WorksheetFunction.Search("/", arquivo, 1)
narquivo = Application.WorksheetFunction.Replace(Arg1:=arquivo, Arg2:=6, Arg3:=1, Arg4:="-")
Exit Sub

ErroNome:
narquivo = arquivo

Exit Sub

End Sub

Obrigado pela atenção e pela agilidade no processo, pessoal.

Edson, utilizei seu conceito, porém ele só substitui a 6ª letra do nome do arquivo por "-". Caso o nome do arquivo não seja "TESTE/EXP.xls", mas sim, "TESTANDO/EXP.xls" ele ficaria assim "TESTA-DO/EXP.xls".

Uma outra sugestão :

Sub SeparaNomeArquivo()
    Dim x As Variant
    Dim i As Long
    
    arquivo = Range("A1")
    sTrim = Application.Trim(arquivo)
    
    x = Split(arquivo, "/")
    stWord = x(0)
    n = stWord
    
    For i = 1 To UBound(x)
            stWord = x(i)
          n1 = stWord
    Next i
 
    narquivo = n & "-" & n1
    MsgBox narquivo
    
End Sub

[]s

Tempo curto para Edição de msg.

Então segue uma sugestão na Rotina do Edson

Sub NomeArquivo()
arquivo = Range("A1")

On Error GoTo ErroNome

n = Application.WorksheetFunction.Search("/", arquivo, 1)
        narquivo = Replace(arquivo, "/", "-")
        MsgBox narquivo
    Exit Sub

ErroNome:
    narquivo = arquivo
    MsgBox narquivo
Exit Sub

End Sub

[]s

Boa Mauro...!

lokaumz, Mauro e demais...

Utilizei a variável n para determinar qual a ordem do caracter inválido e depois não utilizei no Replace...!! hehehe

Viajei...

É um grande prazer agredecer pela ajuda..
Espero também poder contribuir um dia como vocês...

Um grande abraço pessoal.