Utilizando a função ShowAnyForm
do Cpearson é possível realizar isto com um módulo de classe.
Um exemplo com a seguinte árvore de projeto VBA:

Formulário
Um exemplo com o seguinte Formulário:

Um formulário com dois botões com o nome do formulário que deve ser aberto.
E com o seguinte código:
Private collBtns As Collection
Private Sub UserForm_Initialize()
'Créditos: www.andypope.info
' www.cpearson.com/excel/Events.aspx
Dim cls_btn As Classe1
Set collBtns = New Collection
For Each ctrl In Me.Controls
If TypeName(ctrl) = "CommandButton" Then
Set cls_btn = New Classe1
Set cls_btn.btn = ctrl
collBtns.Add cls_btn, CStr(collBtns.Count + 1)
End If
Next ctrl
End Sub
Módulo de Classe
Este código é inserido no módulo de classe Classe1
Public WithEvents btn As MSForms.CommandButton
Private Sub btn_Click()
ShowAnyForm (btn.Name)
End Sub
Private Sub ShowAnyForm(FormName As String, Optional Modal As FormShowConstants = vbModal)
'http://www.cpearson.com/Excel/showanyform.htm
Dim Obj As Object
For Each Obj In VBA.UserForms
If StrComp(Obj.Name, FormName, vbTextCompare) = 0 Then
Obj.Show Modal
Exit Sub
End If
Next Obj
With VBA.UserForms
On Error Resume Next
Err.Clear
Set Obj = .Add(FormName)
If Err.Number <> 0 Then
MsgBox "Err: " & CStr(Err.Number) & " " & Err.Description
Exit Sub
End If
Obj.Show Modal
End With
End Sub
Neste, o evento de cliques dos botões é declarado em btn_Click()
.
Que com o clique do botão, irá abrir o formulário de mesmo nome do Botão com a função ShowAnyForm
.
As opções que você pode utilizar para mostrar o formulário são vbModal
e vbModeless
Exemplo:
Private Sub btn_Click()
ShowAnyForm btn.Name, vbModal
End Sub
Private Sub btn_Click()
ShowAnyForm btn.Name, vbModeless
End Sub
Resultado
