consolidate vba with statement

[andrewb90]

Hello all,

I'm trying to figure out how to properly shorten this bit of code, as I have a number of other userforms that I would like to have the same effects applied to, I keep getting errors trying to do it. Any help would be greatly appreciated.

Private Sub Professor()ActiveSheet.Shapes.Range(Array("PROF")).Visible = True
    With XLP_1
        .Top = Application.Top + 160 
        .Left = Application.Left + 200 
    End With
    With XLP_2
        .Top = Application.Top + 160 
        .Left = Application.Left + 200 
    End With
    With XLP_2a
        .Top = Application.Top + 160 
        .Left = Application.Left + 200 
    End With
    
XLP_1.Show
End Sub