Center Cursor on Button Click

Hi I posted something similar a while back. I found a solution, but it requires me to turn off freeze panes and jump through quite a few hoops. I was wondering if anyone had any thoughts on getting this to work more smoothly

Current Solution:

Please Login or Register  to view this content.

Trying to use something similar to the following such that the cursor position is accounted for given the location of the Freeze Panes, but I some how just keep getting solely the Pane location

Public Sub FindMyCenter2()
Application.EnableEvents = False

Dim o As Object
Dim wnd As Window

Set o = TESTING.OLEObjects("SectionToggle")
Set wnd = o.TopLeftCell.Parent.Parent.Windows(1)


Set PvsCell = ActiveCell
TESTING.Activate



For i = 1 To wnd.Panes.Count
If Not Intersect(o.TopLeftCell, wnd.Panes(i).VisibleRange) Is Nothing Then

TOGGLESIDE.Left = PixelsToPoints(wnd.Panes(i).PointsToScreenPixelsX(o.TopLeftCell.Left))
TOGGLESIDE.Top = PixelsToPoints(wnd.Panes(i).PointsToScreenPixelsY(o.TopLeftCell.Top))

TOGGLESIDE.Right = o.TopLeftCell.Width * wnd.Zoom / 100 + TOGGLESIDE.Left
TOGGLESIDE.Bottom = o.TopLeftCell.Height * wnd.Zoom / 100 + TOGGLESIDE.Top

SetCursorPos TOGGLESIDE.Left, TOGGLESIDE.Top

End If
Next


End Sub

Previous post https://www.excelforum.com/excel-pro...n-click-3.html

Hey Norie, long time, hope all is well. I'm trying to get the button coordinates without having to turn freeze panes on and off.

Yep it's on the spreadsheet. But I'm trying to keep the cursor center of the button on button press.

Every now and again, there's a simple thing we make difficult. Here's the solution.

Declarations

Please Login or Register  to view this content.

Housekeeping:

Please Login or Register  to view this content.

Code:

Please Login or Register  to view this content.

Use to get to Location:

Please Login or Register  to view this content.