try this.

Sub makename()
ma = ActiveCell.Address
ActiveWorkbook.Names.Add Name:="base", RefersTo:= _
"=OFFSET(" & ma & ",COUNTA($a$2:$a$6000),6)"
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Eric @ BP-EVV" wrote in message
...
Can anyone tell me what's wrong with the following statement that is
preventing my VBA code from compiling ?

Names.Add(Name:="Base",
RefersTo:=ActiveCell.Offset(WorksheetFunction.Coun tA("$a$2:$a$60000"),6 as
range)

Thank !