Excel Dialog Sheets

Here you have Kathy (and all programmers who need to work on the legacy Excel VBA code). Dialog sheets

Sub The_Good_Old_Dialog_Boxes()

ActiveDialog.Focus = "EditBox1"

Application.ThisWorkbook.DialogSheets("Dialog1").Buttons("cmdOK").Enabled = False

ActiveDialog.EditBoxes("EditBox1").Text = vbNullString

End Sub

Insert Dialog Sheet

' Ha ha .. If you haven't used dialog sheets before and wanted to have a feel on it, here we go

Sub Insert_Dialog_Sheet()

ActiveWorkbook.Sheets.Add Type:=xlDialogSheet

End Sub

You will find the sheet getting transformed to a Grid and a userform like control - the dialog sheet. The dialog sheets have been replaced by UserForms in Excel 97