[SOLUCIONADO] Dos butones para 1 solo formulario abrir en cualquier de las 2 hojas

[JoaoM]

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.

[Triby]

Solo necesitas verificar el nombre de la hoja activa.

Código VBA:

If ActiveSheet.Name = "Entra" Then
    frmEntraSale.Caption = "Entradas"
    Label3.Caption = "Entradas"
Else
    frmEntraSale.Caption = "Salidas"
    Label3.Caption = "Salidas"
End If
 

[JoaoM]

Gracias amigo Triby

Resuelto

[JoaoM]

Hola Triby.
Tengo aquí una pregunta para ti