Undo button information box text...

[joe7894]

Hi all,

I'm new to VBA & would like to use the MsgBox() function to display some of the data found in the information pop-up window when a user hovers the mouse over the undo button (e.g. Typing '=ABS(C3)' in C6).

I want to take this text to put it into something like this:

MsgBox("You just " & CODE_FOR_UNDO_TEXT & ".")

This will allow me to remind users of the last action they took.

Please ask for more details if my explanation is unclear.

 

[RoryA]

Try:

Mid$(application.CommandBars(1).Controls("Edit").controls(1).caption, 6)

 

[joe7894]

Try:

Mid$(application.CommandBars(1).Controls("Edit").controls(1).caption, 5)

Thanks! Any chance you could give me a bit of an explanation for that please?

 

[RoryA]

The default caption for the Undo button (which was control 1 on the Edit menu) is the last action taken, but with "&Undo" at the start of it so I used Mid(..., 6) - note the code amendment to 6 from 5! - to skip the &Undo part from the beginning.