How Do I move a Spreadsheet to a New Instance of Excel - Page 2

How Do I move a Spreadsheet to a New Instance of Excel - Page 2

Sub NewInstance()
    Dim sCurFile As String
    sCurFile = ActiveWorkbook.FullName
    ActiveWorkbook.Close
    Set objExcel = CreateObject("Excel.Application")
    objExcel.Visible = True
    objExcel.Workbooks.Open (sCurFile)
End Sub