Vista - Re: vbscript pause

Hi ,I am trying to set a macro in Excel, when I do this, the macro runs
fine, but it does everything so quickly, you cannot see what is going on. Is
there a way that I can put a pause in there so that you can see each stage
that the macro is going through? So what I want to do, is run the macro, and
then after each End with or End sub i need to be able to put a pause in there.

My code is:



Private Sub Timer1_Timer()
CurrentSecond = CurrentSecond + 2
If CurrentSecond = TimeLimit Then
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
CurrentSecond = 0
TimeLimit = 1
End With
With ActiveChart.PivotLayout.PivotTable.DataPivotField
.Orientation = xlColumnField
.Position = 1
End With
With ActiveChart.PivotLayout.PivotTable.PivotFields("Club member")
.Orientation = xlColumnField
.Position = 1
End With
End Sub



Sub Macro4()
'
' Macro4 Macro
' Macro recorded 31/05/2008 by z
'

'
With ActiveChart.PivotLayout.PivotTable.PivotFields("Club member")
.Orientation = xlColumnField
.Position = 1
End With
With ActiveChart.PivotLayout.PivotTable.DataPivotField
.Orientation = xlColumnField
.Position = 1
End With
With ActiveChart.PivotLayout.PivotTable.PivotFields("Customer type")
.Orientation = xlColumnField
.Position = 1
End With
End Sub


Thanks

"Chongy" <Chongy@xxxxxx> wrote in message
news:8F97837B-1889-462F-AB59-7CD4DA5096F1@xxxxxxTry this while in Excel:
- Open your macro for editing.
- Click Help
- In the search field, type "Pause" (without the double quotes)
- Follow the suggestions

"Pegasus (MVP)" <I.can@xxxxxx> wrote in message
news:uCe9TwvwIHA.1772@xxxxxxI've never done it in Excel, but you need a timer.
let it run and check for a variable status every second until the condition
is true, then execute the next part of the code.

"hb21l6" <hb21l6@xxxxxx> wrote in message
news:28076D8B-9D90-446E-A6C1-DFC60B2DE24A@xxxxxxPerhaps you might want to have a look at the "Wait" function
in Excel too - it is fully explained in the Help file.