use the Evaluate method equivalent to evaluate the name in VBA:
Sub itemA() Names.add name:="ItemsInA", RefersTo:="=COUNTA($A:$A)" MsgBox [ItemsInA] End Sub