Getting “Code has been terminated” error on Dialog.Show

Question

    sub button1_click
    Dim a as FileDialog
    set a=Application.FileDialog(msoFileDialogFolderPicker)
    a.show
    end sub

Getting the error message window pointing to line a.show , when i click on button1 . Even if i use application.displayalerts=false , I still get that error.

Please help

Answer 1

hey at last seems i found the issue. i was working on a remote machine, and dont know the reason for this problem, but i changed the remote machine and everything seems to be good. Thanks although.. to all – No more attention on this is needed.