Even though there are Formulas in the range they are notr being found.

With Range(rngMyRange.Address)
Set rngMyCell = .Find(After:=ActiveCell, LookIn:=xlFormulas)
If (Not rngMyCell Is Nothing) Then
strFirstAddress = rngMyCell.Address
Do
Set rngMyCell = .FindNext(rngMyCell)
If (Mid(rngMyCell.Formula, 1, 1) = "=") Then strData =
rngMyCell.Formula
Loop While Not rngMyCell Is Nothing And rngMyCell.Address <
strFirstAddress
End If
End With