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>