Sub ai1094()
Dim Fname As String
Dim Wbk1 As Workbook, Wbk2 As Workbook
Set Wbk1 = ActiveWorkbook
Fname = Application.GetOpenFilename
Set Wbk2 = Workbooks.Open(Fname)
Wbk2.Sheets(1).Copy Wbk1.Sheets(1)
Wbk2.Close False
End Sub
How aboutCode:Sub ai1094() Dim Fname As String Dim Wbk1 As Workbook, Wbk2 As Workbook Set Wbk1 = ActiveWorkbook Fname = Application.GetOpenFilename Set Wbk2 = Workbooks.Open(Fname) Wbk2.Sheets(1).Copy Wbk1.Sheets(1) Wbk2.Close False End Sub
Sub ai1094()
Dim Fname As String
Dim Wbk1 As Workbook, Wbk2 As Workbook
Set Wbk1 = ActiveWorkbook
Fname = Application.GetOpenFilename
Set Wbk2 = Workbooks.Open(Fname)
Wbk2.Sheets(1).Copy , Wbk1.Sheets(Wbk1.Sheets.Count)
Wbk2.Close False
End Sub
Sub ai1094()
Dim Fname As String
Dim Wbk1 As Workbook, Wbk2 As Workbook
Set Wbk1 = ActiveWorkbook
Fname = Application.GetOpenFilename
Set Wbk2 = Workbooks.Open(Fname)
Wbk2.Sheets(1).Copy , Wbk1.Sheets(Wbk1.Sheets.Count)
Wbk2.Close False
Wbk1.Sheets(Wbk1.Sheets.Count).Name = "Ref"
End Sub