delay between routines

[rnation]

I am trying to refresh the data or wait for the formulas to calculate before going to, Next

Help

Sub Update()
Range("AU2").Select

Dim cl As Range
For Each cl In Range(Cells(2, 47), Cells(60000, 47))
Select Case cl.Value
Case "s"
if_s
Case "b"
if_b

End Select

Next

End Sub

 

[xenou]

Excel will calculate each step before "nexting" ... but you must be sure calculation is not on manual:

Sub Update()

[COLOR="Blue"]Dim myCalc As Integer
myCalc = Application.Calculation '//capture user's calc setting
Application.Calculation = xlCalculationAutomatic '//ensure automatic calc is one[/COLOR]

Range("AU2").Select

Dim cl As Range
For Each cl In Range(Cells(2, 47), Cells(60000, 47))
Select Case cl.Value
Case "s"
if_s
Case "b"
if_b

End Select

Next

[COLOR="Blue"]Application.Calculation = myCalc '//restore user's calc setting[/COLOR]

End Sub