I know I can pass all the contiguous ranges of cells with formulas as follows
below. However this suffers from the 255 char limit. That is, if the range
is greater than 255 then the cell address that is passed to the ContRange
variable will be truncated. How do you get around this?

Sub test2()
Dim sht As Worksheet
Dim ContRange As String

For Each sht In ThisWorkbook.Worksheets
Set rng1 = sht.Range("a1:iv65536").Cells.SpecialCells(xlFormu las)
ContRange = rng1.Address
Debug.Print sht.Name
Debug.Print ContRange
Debug.Print Len(ContRange)
Next

End Sub

Thanks

EM