Run macro on newly created .xlsx file from another workbook

Question

I am opening and converting a .csv to an .xlsx file on a shared drive location. Once the .xlsx is created it remains open. The macros to do this are in a master Workbook located on the shared drive as well. Right now I have it set for a user to open the workbook and select a command button that opens and converts the file.

The user the selects the template needed from a list box and clicks a second command button which runs the following macro that calls a specific macro which converts the .xlsx just created to the correct format.

All my macros work except the macro below. It stops at the first Workbooks.. Right now the newly created .xlsx is the only .xlsx in its folder but eventually there may be multiple .xlsx files created from multiple .csv files.

  Sub Run_Macros()

    'IF USER SELECTED FXX_Rejects
    If Range("A8").Value = Range("A2").Value Then
    'ACTIVATE OTHER WORKBOOK
    Workbooks("*.xlsx").Activate
    Workbooks("*.xlsx").Sheets("Sheet1").Select
    'AND THEN RUN APPROPRIATE MACRO
     Call aaLayout


    'IF USER SELECTED LXX_Rejects
    ElseIf Range("A8").Value = Range("A3").Value Then
    'ACTIVATE OTHER WORKBOOK
    Workbooks("*.xlsx").Activate
    Workbooks("*.xlsx").Sheets("Sheet1").Activate
    'AND THEN RUN APPROPRIATE MACRO
    Call abLayout


    'IF USER SELECTED HXXXX_Rejects
    ElseIf Range("A8").Value = Range("A4").Value Then
    'ACTIVATE OTHER WORKBOOK
    Workbooks("*.xlsx").Activate
    Workbooks("*.xlsx").Sheets("Sheet1").Activate
    'AND THEN RUN APPROPRIATE MACRO
    Call acLayout


    'IF USER SELECTED SXXX_Rejects
    ElseIf Range("A8").Value = Range("A5").Value Then
    'ACTIVATE OTHER WORKBOOK
    Workbooks("*.xlsx").Activate
    Workbooks("*.xlsx").Sheets("Sheet1").Activate
    'AND THEN RUN APPROPRIATE MACRO
    Call adLayout




    End If

    End Sub

I have edited my question post and added the macro below that locates and converts the .CSV files preparing them for templating. Maybe this can assist answering my original question.

    Sub CSVFiles()
        Dim MyFiles As String, ThisMonth As String
        Dim startPath As String
        Dim wb As Workbook
        ThisMonth = Format(Date, "mmmm")
        startPath = "\\XXX\2017\" & ThisMonth & "\"
        MyFiles = Dir(startPath & "*.csv")
        Do While MyFiles <> ""

        Set wb = Workbooks.Open(startPath & MyFiles)

        Call XLSXConvert
        'Converts all csv files, saves and closes files.  Prepares files for full template creation.
        wb.SaveAs fileName:=startPath & Replace  (MyFiles, ".csv", ".xlsx"),FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
        wb.Close
        MyFiles = Dir
        Loop
    End Sub

Answer 1

Your problem is with "*.xlsx". Operating system commands accept the * as a wildcard but you're not calling an operating system command. You are calling a VBA method on the Workbooks collection of objects that uses a number, usually the order in which the files were opened, as its identifier. Workbooks().Activate does not go out to the folder and look at all the available files and pick one that matches. Workbooks.Open() would do that but it still doesn't accept wildcards, and you said the workbook you want is already open.

Workbooks().Activate looks through the list of open workbooks for an identifier. The object you're trying to Activate was created in the code that ran before you get to this point, that we can't see from your posting. Somewhere in that code, you could assign that object to a variable and then you could create an argument in this code so you could pass in that variable.

What you could also do, IF you know that the only .xlsx file you have open is the one you want, is loop through all the open files and check the name to see if it ends in .xlsx and if it does assign that to a variable. Illustrated below:

  Sub Run_Macros()


    Dim wb As Workbook
    Dim target As Workbook
    Dim wbs As Workbooks


    Set wbs = Workbooks
    For Each wb In wbs
        If LCase(Right(wb.FullName, 5)) = ".xlsx" Then
            Set target = wb
        End If
    Next wb

    'IF USER SELECTED FXX_Rejects
    If Range("A8").Value = Range("A2").Value Then
    'ACTIVATE OTHER WORKBOOK
    target.Activate
    target.Sheets("Sheet1").Select
    'AND THEN RUN APPROPRIATE MACRO
    Call aaLayout


    'IF USER SELECTED LXX_Rejects
    ElseIf Range("A8").Value = Range("A3").Value Then
    'ACTIVATE OTHER WORKBOOK
    target.Activate
    target.Sheets("Sheet1").Activate
    'AND THEN RUN APPROPRIATE MACRO
    Call abLayout


    'IF USER SELECTED HXXXX_Rejects
    ElseIf Range("A8").Value = Range("A4").Value Then
    'ACTIVATE OTHER WORKBOOK
    target.Activate
    target.Sheets("Sheet1").Activate
    'AND THEN RUN APPROPRIATE MACRO
    Call acLayout


    'IF USER SELECTED SXXX_Rejects
    ElseIf Range("A8").Value = Range("A5").Value Then
    'ACTIVATE OTHER WORKBOOK
    target.Activate
    target.Sheets("Sheet1").Activate
    'AND THEN RUN APPROPRIATE MACRO
    Call adLayout

    End If

    End Sub