Harlan,
I had your formula initially but received an error when I
tried it (but must have been some obvious typo!). I retried with your posting
and of course it works.

Thanks again.

"Harlan Grove" wrote:

Toppers wrote...
....
In H1 put required address (Relative format) e.g D6

Copy across and down

=IF(ADDRESS(CELL("row",D4),CELL("col",D4),4)=$H$1 ,$A$1,"")

If this is going to take up an entire worksheet, any reduction in
formula length would save megabytes of on the file size. Better to
make H1 hold the address in absolute format, e.g., $D$6 and use the
formula

=IF(CELL("Address",D4)=$H$1,$A$1,"")