Encrypt CC Data within a spreadsheet

[hb]

I have an issue with multiple workbooks, with multiple spreadsheets that have columns that include credit card data that I would like to encrypt via a macro. I cannot use the spreadsheet password encryption as many people need to access the spreadsheet and be able to reference the last 4 digits of the cc. The cc info is in more than one worksheet so I would like to build a macro that searches the work book for a cell that contains 15 or 16 characters and encrypts or deletes all but the last 4 digits and save this to personal project to use on many workbooks. Does anyone know if this is possible?

Greatly appreciated!

Cheers,
hb

 

[Sthrncali]

So do you want the complete card number saved somewhere, or replaced permanently with:

XXXX-XXXX-XXXX-4178

?