VBA/Excel/Access/Word/Excel/Excel Dialog

Displaying Excel"s Built-in Dialog Boxes

 
Sub gotoDemo()
  Application.Goto Reference:="InputRange"
End Sub

Display range dialog

 
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