Need to set up a constant

[howard]

I have set up a constant as follows

 Const C As String = .xlsm
Sub Open_Fies ()
Windows("M_ERT Sales(P).xls").Activate
    Application.Run "'M_ERT Sales (P).xls'!Data_INPUT"
    ActiveWorkbook.Close
     Windows("M_ERT Sales (P)" & "C &").Activate
     ActiveWorkbook.Close
    Windows("Open Sales Data Files.xlsm").Activate
 End Sub

I get an invalid reference and code below highlighted

 Const C As String = .xlsm

It would be appreciated if someone could correct this

 

[RoryA]

You're missing quotes:

Const C As String = ".xlsm"

Also, the usage should be:

Windows("M_ERT Sales (P)" & C).Activate

not that you need to activate it to close it.

 

[howard]

Thanks for the help Rory

I need some further help


I have a macro which I want to run that is in the source workbook, but get a run time error

See code highlighted when debugging

Application.Run "'M_ERT Sales(P) " & C '!Data_INPUT

 Const C As String = ".xlsm"

Sub Open_Files ()
Windows("'M_ERT Sales(P)" & C).Activate
     Application.Run "'M_ERT Sales(P) " & C '!Data_INPUT"
    ActiveWorkbook.Close
     Windows("'M_ERT Sales (P)" & C).Activate
     ActiveWorkbook.Close
    Windows("Open Sales Data Files.xlsm").Activate

If change the code to and then run the macro , it works perfectly

 Application.Run "'M_ERT Sales(P).xlsm'!Data_INPUT"

It would be appreciated if you can amend this part of the code to include the constant

 

[howard]

Hi Rory

I managed to sort it out through trial & error

 Application.Run "'M_ERT Sales(P)" & C & "'!Data_INPUT"