Set Button as ActiveCell

Hi all,

After having been helped at one part of my project, I am now stuck at another one. Please have a look at the attachment (I have tried to keep it as simple as possible by removing everything not related). "Button1" triggers the creation of the buttons

The final file will contain an unknown amount of rows/columns, with, as header, ID / TEXT1 / TEXT2 / TEXT... (Around 300k cells total)
The final user will have to count how many words are in the cells of a specific column (he may need to do it for other columns as well).

My approach is the following:

1-Find the header, and convert each of its cells into individual buttons (one per column, each button automatically fitting in the cell)
Sub Create_Buttons()
-->Done, an issue may exist

2- When the user click on one of these buttons, a column is added on the right, each cell being filled up with the number of words in the cell on the right (thank you for the previous help)
Sub WordsPerCell_Button()
-->Partially done

Problem:

When I click on a "TEXT..." button, I expected this button to become the ActiveCell, so that:
- the length of the column would be measured (no empty cell)
- the rank of the column would be picked up before inserting a column to its right

Now, it is not working this way. ActiveCell is actually the one selected before clicking on the button.
I've found on the forum and the help several references to SetFocus and TakeFocusOnClick, but I have not been able to use them properly so that the ActiveCell will be the one with the button.

Any help would be very much appreciated.
Thank you.
WordsPerCell.xlsm

Thank you for your answer, and my apologies for not replying earlier (I didn't have time to make your code working in my project before, and I didn't want to answer before giving it a serious try)

I am new at VBA, and Worksheet_SelectionChange appears to be well above my current level.

I still have mostly issues to understand the code that you have suggested, but after several testing I have finally succeeded to include it and to have it working as intended. At least, I am confident that with some more practice I should be able to understand it.
I have 2 more questions, if you would be kind enough to answer them:

1-With TopLeftCell, are you calling an object and looking for the TopLeftCell cell of this object, which is in this case the one cell with the button?

2- What would be the proper declaration of "b"?

Thank you again!

Note: I have included a newer version of my test file, for the record, which includes your code in case somebody would need it.
WordsPerCell2.xlsm

1-Help provides the following explanation:

OLEObject.TopLeftCell Property (Excel)
Returns a Range object that represents the cell that lies under the upper-left corner of the specified object. Read-only.

Please Login or Register  to view this content.

From what I understand with this code:

a-Set b is used to call an application for buttons.

b-The application is defined as being TopLeftCell

c-Based on the Help, I understand that the cell that lies under the upper-left corner of the specified object is the exact one where the button is, since the buttons fits the cell.

My apologies if my wording is inaccurate or wrong, I am not a programmer at all
Thank you again!