Boa tarde.
Seria +- isso que precisa?
Nota:
O parâmetro caminho pode ser uma célula que contém um endereço de pasta ( endereço completo tipo c:Meus documentosMeu arquivo)

Public Function Verificadiretorio(ByVal caminho As String) As Boolean
    
    Dim arq As Variant
    
    arq = VBA.Dir(caminho, vbDirectory)
    
    
        If arq <> "" Then
            Verificadiretorio = True
        Else
            Verificadiretorio = False
        End If


End Function

Boa tarde, Carlos!

Dá pra usar assim:

Function PastaExiste(caminho As String) As Boolean
  PastaExiste = CreateObject("scripting.filesystemobject").FolderExists(caminho)
End Function

Exemplo de uso na célula:

=PastaExiste("C:UsersUsuarioDownloads")

Retorna VERDADEIRO

Modificando só um pouco, vc tb. pode usar uma quase idêntica para verificar se um arquivo existe (é só mudar FolderExists por FileExists):

Function ArquivoExiste(CaminhoENomeArq As String) As Boolean
  ArquivoExiste = CreateObject("scripting.filesystemobject").FileExists(CaminhoENomeArq)
End Function

Exemplo de uso:

=ArquivoExiste("C:UsersUsuarioDownloadsteste.txt")

Retorna VERDADEIRO

Já responderam mas vou postar minha contribuição:

Public Function Pasta_Existe(Caminho As Variant) As Boolean
If Dir(Caminho) = "" Then
Pasta_Existe = False
Else
Pasta_Existe = True
End If
End Function

Aproveitando as ótimas ideias do wzxnet7 e do André e condensando um pouco...

Function PastaExiste(caminho As String) As Boolean
  PastaExiste = Dir(caminho, vbDirectory) <> ""
End Function

Simples e direito.
Excelente implementação Edson.

Sei que não faz muita diferença mas, pode ser útil em algum momento.

Ao declarar a variável "Caminho" como Variant. O excel distingue quando a célula com o caminho da pasta for = Vazio retornando erro.

Declarando como String, mesmo a célula estando vazia, continua retornando VERDADEIRO.

Sei que não faz muita diferença mas...

Tem razão, André. E acho que faz muita diferença.

No entanto, prefiro manter a variável como String por coerência ao tipo de conteúdo que ela espera e acrescentar apenas mais uma condição no teste lógico:

Function PastaExiste(caminho As String) As Boolean
  PastaExiste = (caminho <> "") And (Dir(caminho, vbDirectory) <> "")
End Function

Boa Saída!

Colegas, reparem outra coisa....

Se a pasta procurada existir, mas estiver vazia, ele também retorna FALSO.

Procede?

Não, André, não deve retornar. Pelo menos criei uma pasta zerada aqui e testei deu Verdadeiro.

Eu também criei uma pasta nova (vazia) e retornou verdadeiro.

Bom dia pessoal

Obrigado pelo retorno de todos.

Aqui também retornou falso para a pasta vazia, mas ta valendo.
Se está vazia a macro que estou editando não funcionará mesmo