Sub Count()

Dim Work As Workbook
Dim Figures As Workbook

Set Work = Workbooks.Open("N:Work.csv")
Set Figures = Workbooks.Open("N:\Figures June.xls")

Work.Activate
Range("A1").Select
RngA = Range(Selection, Selection.End(xlDown)).Select
Figures.Activate

ActiveCell.FormulaR1C1 = "=COUNTA(DALWork!R1C1:RngA)"
'ActiveRange = "=COUNTA(Selection)"

'RngA states True

End Sub

What should I put in the formula instead of RngA?

How about

ActiveCell.Formula = "=COUNTA(" & RngA.Address(,,,True) & ")"


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Simon" <(E-Mail Removed)> wrote in message
news:b8a8de1c-b1bf-4038-85a8-(E-Mail Removed)...
> Sub Count()
>
> Dim Work As Workbook
> Dim Figures As Workbook
>
> Set Work = Workbooks.Open("N:Work.csv")
> Set Figures = Workbooks.Open("N:\Figures June.xls")
>
> Work.Activate
> Range("A1").Select
> RngA = Range(Selection, Selection.End(xlDown)).Select
> Figures.Activate
>
> ActiveCell.FormulaR1C1 = "=COUNTA(DALWork!R1C1:RngA)"
> 'ActiveRange = "=COUNTA(Selection)"
>
> 'RngA states True
>
> End Sub
>
> What should I put in the formula instead of RngA?