Using ExecuteExcel4Macro to run Workbook_SheetActivate

[zelarra]

Hi guys.

I've prepared a screenshot for you so you can understand what I want to achieve, if it's possible:

Let's start with the red lines. I have a procedure in a module called mdlCodigos of the personal macro book PERSONAL.XLSB.

In this procedure, I want to mention the Workbook_SheetActivate procedure of the ThisWorkbook module of the open book Farmacia.xlsm (I'll mark it in green).

And I used this code:

Private Sub Prueba()

    Dim Ws As Object

    Set Ws = Worksheets(ActiveSheet.Name)
    
    ExecuteExcel4Macro "Farmacia.xlsm!ThisWorkbook.Workbook_SheetActivate(""" & Ws.Name & """)"

End Sub

However, it doesn't work for me.

I wanted to ask someone to tell me how to write the code, then.

Thank you very much.

 

[rlv01]

ExecuteExcel4Macro is a special method intended to run an Excel 4.0 macro (long obsolete). It should not be used in the way you are trying to use it since Workbook_SheetActivate is not an Excel 4 macro. Perhaps if you could explain more about what you are trying to test.

 

[zelarra]

Thank you very much, guys.

In this particular case, my goal was not to try to illustrate what I wanted to achieve, but rather to find out if what I proposed could be done or not, in order to learn a little more about ExecuteExcel4Macro.

As I said, I really appreciate your contributions.

Regards.