Try:

Sub macx()
Dim w As Worksheet
For Each w In ActiveWorkbook.Worksheets
w.Activate
ActiveSheet.Calculate
Next w
End Sub

--
Gary''s Student


"Peter" wrote:

Hi,

I'd like to know how I can loop through all Formula / UDF in all worksheets
in a workbook programmatically? Do SpecialCells be useful here? Do the
returned Ranged (by SpecialCells) contains multiple range?

TIA.