Sub Routine from Pucci

Sub RetrieveData()
Dim fname As String
fname = GetFileName
If fname = "" Then Exit Sub

Workbooks.OpenText FileName:= _
fname, Origin:=437, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), TrailingMinusNumbers:=True

Dim DataSheet As Worksheet
Dim MasterSheet As Worksheet

Set DataSheet = Workbooks("HANOSEKMTN.risk.consol.tab").Sheets("HANOSEKMTN.risk.consol")
Set MasterSheet = Workbooks("MTN_Key_Rate_DV01.xls").Sheets("DV01")

Application.DisplayAlerts = False 'Turn off before saving
DataSheet.Range("A1:F150").Copy
MasterSheet.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks("HANOSEKMTN.risk.consol.tab").Close
Application.DisplayAlerts = True ' Turn back on
End Sub