declaring workbook names

[bsquad]

I am having some trouble with this code and know it's most probably an easy little syntax I am missing. the 'FileNameR' is text in a cell of the full workbook name including the file extension. I have also tried declaring it as a string (besides the variant). The error is coming on 'InaWB' with a runtime error 13 Type mismatch. - guessing why its a simple syntax thing I am missing.

Dim FileNameR As Variant
            FileNameR = ThisWorkbook.Sheets("Sheet1").Range("O4", ThisWorkbook.Sheets("Sheet1").Range("O4").End(xlDown)).Value
    Dim InaWB As Workbook
        Set InaWB = Workbooks(FileNameR)

 

[Leith Ross]

Hello bsquad,

You are trying to use a Variant Array (FileNameR) as a String. This will not work.

Which cell or cells in the column "O" are of interest?

 

[bsquad]

Hi Leith,

as I really appreciate the response; I did figure out an alternative method. It turns out I had something similar in another workbook.
-I created sort of a history log of the code runtimes. The files that you can import can be dynamic in the naming. So each time it runs, it dumps the file name in a different last row scenario for column "O".

Dim LR As Long
        LR = ThisWorkbook.Sheets("Sheet1").Cells(Rows.Count, "O").End(xlUp).Row
    Dim FileNameR As String
        FileNameR = ThisWorkbook.Sheets("Sheet1").Cells(LR, 15).Value