Toggle Button takes focus and thus changes selection

[NobodysPerfect]

Hi to all,



I'm using an ActiveX toggle button in one of my documents. The problem is: toggle buttons do not have a TakeFocusOnClick = False property like command buttons do.

So clicking the toggle button means a selection change, but I'd like to continue working at (former) cursor position.

Application.GoBack at the end of the tgl_Click procedure does not work the way it should (for my purpose).

I even tried an app_WindowSelectionChange event, but I simply did not succeed in saving the selection.range before clicking the toggle button.

Do you have an idea?

Any help appreciated ... thanks
NP

[NobodysPerfect]

If Selection.Range.InlineShapes.Count > 0 Then
    If Not Selection.Range.InlineShapes(1).Type = 5 Then RSel = Selection.Range
Else
    Set RSel = Selection.Range
End If

Seems to work in app_WindowSelectionChange.

Cheers
NP