Close inactive Workbook without workbook name

[chrismann85]

Hi all,

I have a spreadsheet which will fill columns based on data from a number of other worksheets. For each row, there are three different workbooks to draw data from.

I have a macro that will prompt the user to browse to a file to open, it will then manipulate and copy the data into the main workbook.

The only problem I have now is that I want to close the workbook when the macro has finished.

Here is my code:

Sub ImportVEESData()

   Dim strPath As String
    Dim vntFile As Variant
                
'Browse to data file using prompt
    strPath = "R:\Test Operations\Emissions\Processed Data 14-11-08 onwards\SULEV VEES analysis\SULEV Hot Bag 3 Full Gage R and R 4 March 2009 on\"

    ChDrive strPath
    
    vntFile = Application.GetOpenFilename("All Files *.*,*.*")
    If vntFile = False Then Exit Sub
    
    Workbooks.Open vntFile
    ActiveSheet.Select

'grab values from this open sheet
    
    Windows("ULEV3 Gauge R&R Summary Sheet - Bag 3.xls").Activate

'paste values into sheet  
    
    
End Sub

Any ideas?

[JeanRage]

Hi,

Not sure to understand your question ... may be
ActiveWorkbook.Close

HTH

[chrismann85]

Hi JeanRage,

That is what I would normally use but the workbook I want to close is not the active workbook. And as the user chooses it, the name of the workbook is not written in the macro.

[JeanRage]

Hi,

In this case, you do have to define in your variables two entities as workbooks ...
Dim wbk1 As Workbook
Dim wbk2 As Workbook

Then, in your code, Assign wbk1 and wbk2 when they are active, ... in order to be able to close the workbook you want ... whenever you want ...
wbk1.Close

HTH

[chrismann85]

Hi Jean,

That did help, thanks

[JeanRage]

Glad you could fix your problem ...

Cheers