Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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