Sub Update_Data2()
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim QWB As Workbook, ZWB As Workbook, DatName As String
DatName = Application.GetOpenFilename
Workbooks.Open (DatName)
<em><strong>Set QWB = Workbooks(DatName)</strong></em>
Set ZWB = ThisWorkbook
Dim QWS As Worksheet, ZWS As Worksheet
Set QWS = QWB.Worksheets("RIS Overview")
Set ZWS = ZWB.Worksheets("RIS Overview")
QWS.Cells.Copy ZWS.Cells(1, 1)
Workbooks(DatName).Close
Application.EnableEvents = True
End Sub