SpecialCells VBscript to get all Formulas fails w/Unable to get the specialCells property of the Range Class

[blpcrs]

Trying to put a vbScript together that will go through an Excel Sheet and return all the Forumlas Found in the activeSheet.
I am attempting to use SpecialCells to return the data. However, I get an error "Unable to get the SpecialCells property of the Range Class". Am I missing something to make SpecialCells work? Thanks in advance.

[/FONT][/COLOR]Dim xlObj
Dim actWS
Dim rRange
Dim tColumn
Set xlObj = eval("getobject(,""Excel.Application"")")		
Set actWS = xlObj.ActiveWorkbook.ActiveSheet
	
set rRange = actWS.usedRange.SpecialCells(xlCellTypeFormulas)

rc = msgbox (rRange, vbok, temp) [COLOR=#000000][FONT=Tahoma]

 

[Norie]

You need to replace the VBA constant xlCellTypeFormulas with its actual value, -4123.

 

[blpcrs]

You need to replace the VBA constant xlCellTypeFormulas with its actual value, -4123.

Thank you a million times over!