I am using this code to show dialog box and I want to change title of dialog box from "Open" to "Xyz" Set fd = Application.Dialogs(xlDialogOpen) fd.show