Display one of Excel's built-in dialog boxes and let the user make the choices: by using the Application object's Dialogs property.
Sub show() Result = Application.Dialogs(xlDialogFormulaGoto).show End Sub