Eu tenho um código para obter uma caixa de diálogo para escolher um nome de pasta e exibir o nome da pasta que o usuário seleciona.

Mas, se o usuário tentar selecionar Cancelar, em vez de Caminho da pasta e OK, ele emitirá um erro.

De acordo com minhas observações, usei uma variável status e notei que, ao cancelar, o status muda para -1.so tentei implementar o código que está na seção de comentários usando uma condição if para sair do sub.

Mas isso não parece funcionar no caso de selecionar uma pasta quando a parte comentada estiver presente no código.

Sem isso, ele funciona bem na seleção de uma pasta.

Alguém poderia por favor ajudar nisso? É um passo de um minuto, estou perdendo algo :(

  sub abc()
     Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker)
        diaFolder.AllowMultiSelect = False
        diaFolder.Title = "Select a folder then hit OK"
        diaFolder.Show
        'Status = diaFolder.Show
        'If Status < 0 Then
        'Exit Sub
        'End If
        a = diaFolder.SelectedItems(1)

        MsgBox ("Folder selected is :" & a)
    ens sub