Try changing

ActiveCell.FormulaR1C1 = "=COUNT(FNAME&IDS)"

to

ActiveCell.FormulaR1C1 = "=COUNT(IDS)"


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Jaime" wrote in message
...
I declared both a workbook and range and couldnt get my
formula to calculate non text for both the workbook and
range. Thanks in advance



''''''''''''''''''''''''''''''''''Macro''''''''''' '''''''
Dim IDS As Range
Dim Fname As String


Fname = ActiveWorkbook.Name

ActiveCell.Offset(0, 7).Select
Range(Selection, Selection.End(xlDown)).Name = "IDS"

ActiveWindow.ActivateNext


ActiveCell.FormulaR1C1 = "=COUNT(FNAME&IDS)"

'''This comes out as described above im stumped

'''is it an indirect?