VBA - Close Workbook with varying name

[julia55]

I am basically making a template that multiple people will use. I need the macro to open a workbook, and then later close the workbook it opened after running a few steps. The opened workbook may not always have the same name. I would really like to get away with not using specific workbook names at all, not even for the active workbook. The code is below and I have put in bold the parts I'm haivng issue with.

Sub PullInResults()
Application.ScreenUpdating = False
Application.Calculation = xlManual
    Sheet2.Select
    Cells.Select
    Selection.ClearContents
    Range("A1").Select
[B]DAWRKBK = ThisWorkbook.Name
Set DstWks1 = ThisWorkbook.Worksheets("Query Results")[/B]
[B]NewFN = Application.GetOpenFilename(FileFilter:="Excel Files (*.csv), *.csv", Title:="Please select the query results file you just saved")
    If NewFN = False Then
    'They pressed Cancel
MsgBox "Stopping because you did not select a file"
Exit Sub
Else
Workbooks.Open Filename:=NewFN
[/B]End If
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Workbooks(DAWRKBK).Activate
Sheet2.Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
 
[B]Windows("FCO Query Results.csv").Close
Windows("FCO_Summary.xlsm").Activate[/B]
 
Sheet3.Select

End Sub

 

[julia55]

I even tried this, but can't get it to work, I get an error that it is expecting an End Sub before the Function section.

Sub tst2()
Dim sFileName As String
sFileName = Application.GetOpenFilename(FileFilter:="Excel Files (*.csv), *.csv", Title:="Please select the query results file you just saved")
If sFileName = "False" Then Exit Sub
Workbooks.Open fileName:=sFileName
Dim temp As String
temp = spliceFileNameEnd2(sFileName)
MsgBox (temp)
Workbooks(temp).Close
Function spliceFileNameEnd2(fileName As String) As String
Dim x As Integer
Dim stringLength As Integer
Dim lastSlash As Integer
Dim temp As String
stringLength = Len(fileName)
For x = 1 To stringLength
    temp = Mid(fileName, x, 1)
    If temp = "\" Then
        lastSlash = x
    End If
Next x
 
spliceFileNameEnd2 = Mid(fileName, lastSlash + 1, stringLength)
 
End Function
End Sub