Display range dialog : Excel Dialog « Excel « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Excel
3. Excel Dialog

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

 

Related examples in the same category