I'm trying to write a macro to automate the insertion of a cross-
reference (Heading, table or figure) along with its page number
instead of doing the following:

1. Insert > Reference > Cross-Reference
2. Select Heading for Reference type
3. Set "Insert reference to:" to Heading text
4. Select heading in "For which heading:"
5. After cross-reference is inserted type "on page"
6. Set "Insert reference to :" to page number

I want to do the same sequence for inserting cross-references to
figures and tables.

It would be nice if it was a populated listbox with a selection of
Heading, Figure or Table cross-references found in the document.

I am using Word 2003 on Windows XP Professional SP2.

I had a macro developed in my previous job but can't remember how I
got there.

Any help would be appreciated.