Para DAM, Modificar Macro.

DAM, en la siguiente Macro suministrada por usted en obsequio Navideño, necesito realizar una modificación:

Private Sub CommandButton1_Click()
'Por.DAM
agregar "DATOS"
agregar ComboBox1.Text
End Sub

Private Sub CommandButton1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Por.DAM
KeyPress = 0
End Sub

Private Sub UserForm_Activate()
'Por.DAM

gestor.Caption = Sheets(h).Name ' Nombre de la etiqueta

' ComboBox1.RowSource = "Hoja1!E2:E" & Sheets("Hoja1").Range("E" & Rows.Count).End(xlUp).Row ' valor original
End Sub

Sub agregar(h)
'Por.DAM
u = Sheets(h).Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets(h).Cells(u, "A") = TextBox1
Sheets(h).Cells(u, "B") = TextBox2
Sheets(h).Cells(u, "C") = TextBox3

Sheets(h).Cells(u, "BD") = gestor.Caption
' Sheets(h).Cells(u, "BD") = ComboBox1 ' valor original
End Sub

El Libro inicia sesión por medio de una clave que permite acceso a registrar datos únicamente en la Hoja llamada "DATOS" e igualmente en la hoja con nombre de Gestor, el problema de hacerlo por medio de combo es que el gestor "JUAN" podría llegar a seleccionar el Gestor "PEDRO", lo que le llevaría el registro a una hoja equivocada; necesito que el gestor no pueda modificar la selección, es por ello que se me ocurre hacerlo por medio de una Etiqueta.

Es de mencionar que las únicas hojas visibles para el gestor son: "Inicio" y la que corresponde al nombre del gestor, todas las demás se encuentran con la propiedad de visible con valor de "xlsheetveryhidden"

Necesito que al cargar el Formulario el valor Caption con name "gestor" se cargue automáticamente con el nombre de la hoja del gestor correspondiente.

Quedo pendiente de cualquier aclaración que puedas requerir para poderme ayudar.

Saludos.