You don't need a macro for this - you can use a
wildcard Find/Replace, where:
Find = \[A[!1]*\]
Replace = nothing
This will delete all of the [A# text] where # is any number other than 1.
Cross-posted at:
http://stackoverflow.com/questions/2...ets-and-delete#
For cross-posting etiquette, please read:
http://www.excelguru.ca/content.php?184