It's not going to show up in your list of macros because it has an argument (ByRef CurrentTop as String)
Only subs with no arguments (Sub Name ()) show up in the list.
You need to create a Sub that calls NoNames, like this:
Sub TestNoNames
msgbox NoNames "John Doe"
end sub
The purpose of that code sample in the book, though, is for comparison purposes - it doesn't use Names to hold data. The next example in the book does use Names