I have to dynamically create a number of sheets that then need to be
summarized into a summary sheet.

The approach I would like to take to develop the summary sheet is to go
through each cell in a specified range and then check to see the type
of data in it. If it is text, copy text over. If it is a number or a
formula, create a formula and then put it in the target cell of the
summary sheet.

I am running into a problem trying to figure out the content type. Here
is the code I am using.

Thanks in advance!

************************************************************************************************************

If Range(strRange).HasFormula Or
Application.WorksheetFunction.IsNumber(strRange) Then

For iCntr2 = 0 To UBound(strRollUps)
If Len(strFormula) = 0 Then
strFormula = "'" & strRollUps(iCntr2) &
"'!" & strRange
Else
strFormula = strFormula & "+ '" &
strRollUps(iCntr2) & "'!" & strRange
End If
Next
ElseIf Application.WorksheetFunction.IsText(strRange)
Then

Sheets(strSummSheets(iCntr)).Range(strRange).Value
= Range(strRange).Value

End If

************************************************************************************************************