[Resolvido]Fechar Determinada Pasta do Exploerer

Como encontrado no fórum, para abrir uma determinada pasta de arquivos é possível utilizar a seguinte função:

Shell "explorer.exe C:\Meus documentos", vbMaximizedFocus

para abrir o caminho escrito em um campo:

Shell "explorer.exe " & Me.NomeDoCampo, vbMaximizedFocus

Nesse sentido, qual seria a função para fechar a mesma pasta?

Olá

Código:

Private Sub SeuBotao_Click()
'By JPaulo
'www.maximoaccess.com
'Out-2023
Dim strCaminhoPasta$
Dim w
Dim x

strCaminhoPasta = "C:\temp\backup"
Set x = CreateObject("shell.application")
For Each w In x.Windows
    If w.Document.folder.self.Path = strCaminhoPasta Then w.Quit
Next
End Sub

J. Paulo
Agradeço o Retorno.
Todavia, está gerando erro em tempo de execução '438'

J. Paulo.
Alterei de X para W na parte que está amarelada na imagem anterior.
Com isso funcionou.
Muito obrigado pela ajuda.

Obrigado pelo retorno o fórum agradece.