Excel VisualBasic Script

Sub itemA()
     Names.add name:="ItemsInA", RefersTo:="=COUNTA($A:$A)"
     MsgBox [ItemsInA]
End Sub