Need to know how to center a shape in the screen

[OaklandJim]

I did some Googling but didn't find a solution. I am attempting to center a shape on the screen. Here is what I have tried.

With oShape

        .Name = psName
                
        '.Left = (ActiveWindow.VisibleRange.Width / 2) - .Width / 2
        
        '.Left = (Application.Width / 2) - (.Width / 2)
        
         '.Left = Application.Width / 2
        
        '.Top = (ActiveWindow.VisibleRange.Height / 2) - .Height / 2
        
        '.Top = (Application.Height / 2) - (.Height / 2)
        
        '.Top = Application.Height / 2

        .Width = 116
        
        .Height = 90
    
    End With

 

[OaklandJim]

A bit more Googling brought me to this which works

With oShape

    .Left = ActiveWindow.VisibleRange(1).Left + (ActiveWindow.VisibleRange.Width / 2 - .Width / 2)

    .Top = ActiveWindow.VisibleRange(1).Top + (ActiveWindow.VisibleRange.Height / 2 - .Height / 2)

End With