find/replace macro?

Thank you guys,

Richard, your solution would not work simplely because the tab containing the words to be replaced is a tab that will be uploaded into a system daily and has to be the same formate always. The problem I am having is that the description column for that tab contains more than 30 characters and the system it is going into can only have 30 max for a discription. I've used the Trim function to get rid of excess spaces, but need to go shorter. And the discriptions are important enough to were I can just remove the last group of characters to make fit. So I need to find words like Credit and replace with cr and Debit and replace with dr... etc.

Hope this helps

JP

I have tried your code JB, but it comes up with a 400 error? I am new to VB and coding, so have absolutely no idea what is going wrong.

Ive attached what Ive done