The following code works fine but it leaves the the selected workbook open......... what code do I need to add to close it
Code:
Sub
Get_Data()FileToOpen = Application.GetOpenFilename _
(Title:="Please choose a file to import", _
FileFilter:="Excel Files *.xlsx (*.xlsx),")
''
If FileToOpen = False Then
MsgBox "No file specified.", vbExclamation, "Duh!!!"
Exit Sub
Else
Workbooks.Open Filename:=FileToOpen
End If
Sheets("Sheet1").Select
Sheets("Sheet1").Copy Before:=Workbooks("zullily.xlsm").Sheets(1)
Sheets("Labels").Select
Call dural
End Sub