Close Without Saving With Macro

Sub test1()
Dim myDir As String, fn As String, sn As String
myDir = "C:\Documents and Settings\user\Desktop\rachit miRNA analysis project\Data\"
fn = "2620_TotC_A3_SynC_A5_0003.xls"
sn = "2620_TotC_A3_SynC_A5_0003"
With Workbooks.Open(myDir & fn).Sheets(sn)
     With .Range("a33", .Range("a" & Rows.Count).End(xlUp)).Resize(, 50)
          ThisWorkbook.Sheets(1).Range("a1").Resize(.Rows.Count, .Columns.Count).Value = .Value
     End With
     .Close False
End With
End Sub