VBA to open workbook from cell reference

[jondavis1987]

Sub Open_Workbook()
    Dim srcWB As Workbook
    Dim destWB As Workbook
    Dim fName As String
    Dim lastRow As Long
      Dim LocationName As String
     LocationName = Range("'A'!F8").Value
'   Capture current workbook as source workbook
    Set srcWB = ActiveWorkbook
'   Open destination workbook and capture it as destination workbook
    Workbooks.Open "C:\Users\jdavis\Dropbox\Quality Control\Asphalt\Mold Height\" & LocationName"
    Set destWB = ActiveWorkbook
    
'   Find last row of Sieve data in destination workbook
    lastRow = destWB.Sheets("B6").Cells(Rows.Count, "A").End(xlUp).Row + 1
'   Copy Mold Heights data from source workbook to destination workbook
    srcWB.Sheets("A").Range("G3").Copy
    destWB.Sheets("B6").Range("A" & lastRow).PasteSpecial xlPasteValues
    srcWB.Sheets("A").Range("E41").Copy
    destWB.Sheets("B6").Range("B" & lastRow).PasteSpecial xlPasteValues
    srcWB.Sheets("A").Range("D18").Copy
    destWB.Sheets("B6").Range("C" & lastRow).PasteSpecial xlPasteValues
'   Save changes and close destination workbook
    destWB.Close SaveChanges:=True

That's the code that I have inside of a macro that's significantly bigger. I'm trying to open up a workbook from a cell reference. I need it to open up

C:\Users\jdavis\Dropbox\Quality Control\Asphalt\Mold Height\" & LocationName"

and the cell reference for the location name is F8 of the source workbook.
Let's say cell f8 says NP or SP
C:\Users\jdavis\Dropbox\Quality Control\Asphalt\Mold Height\NP.xlsx
or C:\Users\jdavis\Dropbox\Quality Control\Asphalt\Mold Height\SP.xlsx
is what I want it to open
My destWB.sheets is a name that's referenced in B6 of my source workbook and I don't know how to set that up either

 

[gsistek]

You'll want to use the following:

Workbooks.Open "C:\Users\jdavis\Dropbox\Quality Control\Asphalt\Mold Height\" & LocationName & ".xlsx"

and

destWB.Sheets(srcWB.Sheets("A").Range("B6")).Range...