Salvar Nome do Caminho e Nome da Planilha em uma Célula

[guilas]

Bom dia,

Pessoal, eu preciso de uma função no VBA que eu possa selecionar um arquivo e gravar o nome do arquivo e caminho dele em duas células. O caminho do arquivo eu consegui, conforme o código abaixo. Mas o nome do arquivo não, alguém pode me ajudar?
Por exemplo:
Célula B2 = C:User/Documents/Vendas.xlsx
Célula C2= Vendas

Código: Selecionar todos

Public Function AbrirArquivo() As String

    Dim Filtro As String
    Dim Titulo_da_Caixa As String
    Dim Arquivo As Variant
    
    Filtro = "Todos os Arquivos (*.*),"
    
    Titulo_da_Caixa = "Selecione o arquivo"
    
    ChDrive ("C")
    ChDir ("C:\")

    With Application
    
        Filename = .GetOpenFilename(Filtro, 3, Titulo_da_Caixa)
        
        ChDrive (Left(.DefaultFilePath, 1))
        ChDir (.DefaultFilePath)
       
    End With
    
    If Filename = False Then
        MsgBox "Nenhum arquivo foi selecionado."
        Exit Function
    End If
    
    AbrirArquivo = Filename
    Planilha2.Range("B2") = AbrirArquivo
  
End Function

Desde já, obrigado!

[Reinaldo]

Não entendi, aparentemente o retorno da função acima é o caminho/nome_completo_do_arquivo
Então já tem o nome do arquivo e que realmente deseja/espera

[guilas]

Reinaldo,
Eu tenho o caminho do arquivo, mas eu quero extrair só o nome do arquivo, entendeu ?

O que tenho:C:User/Documents/Vendas.xlsx
O que eu quero: Vendas

[Reinaldo]

Uma possibilidade

Código: Selecionar todos

Public Function AbrirArquivo() As String
Dim Filtro As String, Titulo_da_Caixa As String
Dim Arquivo As Variant
Dim Separa() As String
Filtro = "Todos os Arquivos (*.*),"
Titulo_da_Caixa = "Selecione o arquivo"

ChDrive ("C")
ChDir ("C:\")

With Application
    Arquivo = .GetOpenFilename(Filtro, 3, Titulo_da_Caixa)
    ChDrive (Left(.DefaultFilePath, 1))
    ChDir (.DefaultFilePath)
End With

If Arquivo = False Then
    MsgBox "Nenhum arquivo foi selecionado."
    Exit Function
End If

Separa = Split(Arquivo, "\")
AbrirArquivo = Arquivo
Planilha2.Range("B2") = AbrirArquivo
Planilha2.Range("C2") = Split(Separa(UBound(Separa)), ".")(0)
End Function