Use input box to add prefix to currently populated cells

Hello -

I receive excel files that would have a column that has ID's of animals and I need to place a prefix in front of the animal numbers based on the number itself. I would like to use VBA and an Input Text Box to do this.

Some examples would be:

If Column A had 12xys1234 the individual would type HOUSA000 in the input text box.
If Column A had 982012345678912 the individual would type HO in the input text box.

The macro would take the information that was typed into the input box and insert this in front of the contents of column A.


Currently I am using the Formula ="HOUSA0000"&a2, but I am now training others to process these items and they are not as comfortable with formulas.

Any help would be much appreciated.

Thank you!

Thanks Alan, the code you sent it worked very nicely.

One additional Question, how do I program it to automatically continue to the last row of data and not have the input box show for each cell?

Example: a person would type in HOUSA0000 for the first input box and click OK, then the macro would use this for the whole column.

Thanks again!

Yes, that was it.

Thanks!!