VBA: Show userform in center of screen

[FryGirl]

I currently use the code below to center the userform in the center of the screen. All works good.

With UserForm1
  .StartUpPosition = 0
  .Left = Application.Left + (0.5 * Application.Width) - (0.5 * .Width)
  .Top = Application.Top + (0.5 * Application.Height) - (0.5 * .Height)
  .Show
End With

I have many userforms and instead of duplicating this code in the Sub to open every userform, can I call it somehow?

I'm just not sure how I would pass the name of the userform to the call to retrieve the position details.

 

[rlv01]

The Userform Activate event.

 

[My Aswer Is This]

Well glad to see you have things working for you. I thought from the beginning you wanted Multipages hidden so user could only see the one that applied to them. But it's been a week or more now and maybe I do not remember that. But I know how projects can change glad to see you know how to modify scripts to work the way you want. As far as centering the form. My Userform always shows up in the center of the screen by default but I'm not using multi monitors. Using case is a nice way to do things. Take care.

Indeed it is, and as you help lead me down this path, I think the process is shifting into the easiest to maintain (on my part).

​

I started out with the ComboBox idea only because that's what was stuck in my head. As this UserForm approach has opened my eyes, so has my idea for what's simplest for the user to interact with.

Maybe there isn't any need to hide the Multipages as they are all applicable and the user can jump back and forth amongst the pages as they deem necessary. The cherry on the top was to have the page to open that equals the active sheet.

Anyway, I think the simplest method is to use a Case statement structure on UserForm Initialize and let that chose the page by the activesheet.name.

Private Sub UserForm_Initialize()
    
    Select Case ActiveSheet.Name
    
        Case "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12"
            MultiPage1.Value = 0
        
        Case "Master"
            MultiPage1.Value = 1
        
        Case "Analysis"
            MultiPage1.Value = 2
        
        Case "Level 1", "Level 2", "Level 3"
            MultiPage1.Value = 3
        
        Case "Summary"
            MultiPage1.Value = 4
        
        Case "Charts"
            MultiPage1.Value = 5
                
        Case "Forecating"
            MultiPage1.Value = 6
        
    End Select
    
End Sub

As you can see, the worksheet will have 20 tabs and the Multipage UserForm will have 7 pages.