Hice esta minuscula macro
If Sheets("Entra").Select Then
frmEntraSale.Caption = "Entradas"
Label3.Caption = "Entradas"
Else
Sheets("Sale").Select
frmEntraSale.Caption = "Salidas"
Label3.Caption = "Salidas"
End If
Para integrar al evento Private Sub UserForm_Initialize()
La idea es que si estoy en la hoja2, preciono el boton que tengo en esa hoja y abre el formulario con la caption Entradas
Si estoy en la hoja6, preciono el boton que tengo en esa hoja y abre el formulario con la caption Salidas
Asi 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 emmienda.
Gracias
Prueba esto:
If activesheet.name = "Entra" then...
Te adjunto un pequeño archivo para que veas.
Un saludo
Gracias cron, no pense en .Name, ahí estaba todo mi rollo
Gracias