VBA/Excel/Access/Word/Excel/Excel Dialog
Displaying Excel"s Built-in Dialog Boxes
<source lang="vb">
Sub gotoDemo()
Application.Goto Reference:="InputRange"
End Sub
</source>
Display range dialog
<source lang="vb">
Sub ShowRangeDialogs()
On Error Resume Next Range("B1").Select For i = 1 To 700 Application.StatusBar = "Dialog Number " & i Columns("B:B").Find(What:=i, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False).Activate ActiveCell.Offset(0, -1).Activate Application.Dialogs(i).Show ActiveCell.Offset(0, 1).Activate Next i Application.StatusBar = False
End Sub
</source>