Merge two VBA codes in one

I have these two VBA codes, to get the result, I have to put the following excel formula to do the trick : =CCPA(A1)&(MAJUSCULE(A1&MAJUSCULE(RIP(A1)))).
I want to merge the two together in a function named for example : Account, so by just typing =Account(A1), it will give me the result obtained from the formula : =CCPA(A1)&(MAJUSCULE(A1&MAJUSCULE(RIP(A1))))

The codes are :

Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Our guidelines recommend code tags. I have added them for you this time because you are a new member. --6StringJazzer

Please Login or Register  to view this content.

There is no function in your code called MAJUSCULE. What is that?

Merci Marc L!

Your original formula uses MAJUSCULE redundantly
Original

Formula:

Please Login or Register  to view this content.

Streamlined

Formula:

Please Login or Register  to view this content.

So the code is:

Please Login or Register  to view this content.

UCase is the VBA function for uppercase, so it is not necessary to refer to the worksheet function in VBA.

Then you can just remove UCase from the code

Please Login or Register  to view this content.