Use of Application.Run "Modul1.Macro1" in XLSM convert to XLS 2003

[straycat]

Hello colleagues,

I have an XLSM file that I have to convert to XLS 2003. It has given me some compatibility problem that I have already solved, but I don't know how to use the following command in XLS 2003.
Command in XLSM is : Application.Run "Modul1.Macro1"
I need to use this in XLS 2003, and I don't find how to adapt it.

Thanks in advance

 

[MARK858]

As far as I remember there is no difference with Application.Run in 2003. Are you sure that your code shouldn't be

 Application.Run "Module1.Macro1"

, which would be the default name for the module?

 

[straycat]

Here you can see the vba code. I only need to adapt for example Application.Run "Module8.Macro1" to Excel 2003. Can you please help me?

Private Sub Workbook_Open()
Application.Run "Module8.Macro1"
End Sub

 

[MARK858]

I am afraid that I can't as I can see nothing there that shouldn't run in 2003 if the module name/sheet name are correct, the code is in the same workbook and you have put the code in the ThisWorkbook module.

Are you getting any error messages?
What code is in Macro1?

 

[straycat]

Thi is a more complet VBA text


Private Sub Workbook_Open()
If ThisWorkbook.ReadOnly Then ActiveWorkbook.Close False
Application.EnableCancelKey = xlDisabled
tpo = "00:00:02"
Application.Wait Now + TimeValue(tpo)
ActiveSheet.Unprotect Password:="xx"
Application.Run "Module1.Limit"
ActiveSheet.Protect Password:="xx", AllowFiltering:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Dim Expdate As Date
Expdate = Hoja2.Range("J9") 'Limit
If Date > Expdate Then
MsgBox "The file has expired"
license4 = InputBox("Administrator Password:")
If license4 <> "AAA" Then
MsgBox "Not Correct. You can download it again."
link = Sheet7.Range("O9")
FollowHyperlink Address:=link, NewWindow:=True
Application.Run "Module8.Out"
End If
End If

End Sub

 

[MARK858]

That sub is not called Macro1. It is also not much help when you don't post your actual codes.

You would be better to insert msgbox's before all the Application.Run's to make sure that the code is reaching them (and do the same in the macro's you are calling).