Как поместить выделенный диапазон ("О124:Т131") в центр активного окна (листа)???

Sub Test()
Dim w As Worksheet, rMy As Range, rVisible As Range
Dim xShift As Long, yShift As Long
   
    Set w = Worksheets("Sheet")
    Set rMy = w.Range("O124:T131")
    Application.Goto rMy, True
    Set rVisible = ActiveWindow.VisibleRange
    xShift = (rVisible.Columns.Count - rMy.Columns.Count - 0.1) / 2
    yShift = (rVisible.Rows.Count - rMy.Rows.Count - 0.1) / 2
    ActiveWindow.SmallScroll Up:=yShift, ToLeft:=xShift
   
End Sub