|
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
|