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