Hice esta minúscula macro
Código:
If*Sheets("Entra").Select*Then
frmEntraSale.Caption*=*"Entradas"
Label3.Caption*=*"Entradas"
Else
Sheets("Sale").Select
frmEntraSale.Caption*=*"Salidas"
Label3.Caption*=*"Salidas"
End*If
Private Sub UserForm_Initialize()
La idea es que si estoy en la hoja2, presiono el botón que tengo en esa hoja y abre el formulario con la caption Entradas
Si estoy en la hoja6, presiono el botón que tengo en esa hoja y abre el mismo formulario con la capción Salidas
Así mismo el label. Resulta que al abrir estando en Salidas, me cambia a hoja Entradas y el caption me dice Entradas claro.
Debido a mi ignorancia y experiencia a dar con el fallo recurro a alguien de ustedes para la enmienda.