Move Label Button with cell value

Hi

I am having a command button on sheet1 on cell "E9". I need three conditions to be fulfilled.

1. When the button is clicked it should expand the hidden 7 rows below with caption "hide"
2. When the button is clicked again, it should hide the 7 rows below with caption "Enter"
3. If the value in Cell "E9" is greater than zero the button should move to left ie "D9" with caption "Amend", else remain same in the position,with caption "Enter".

how to do this by Vba?

Anybody can help.

Vijay

Hi VIJAY48,

Try the following Macros which are included in the attached sample file. Please let me know if I didn't follow your instructions.

Part of the solution is to use a 'Forms' Command Button with the name 'Button HideOrEnter'. Included is macro RenameActiveShape(), which can be invoked by 'Right Clicking' on a Shape, and then running the macro .

In the ThisWorkbook module:

Please Login or Register  to view this content.

In an ordinary code module:

Please Login or Register  to view this content.

Lewis