Sub aaaaa()
Dim SelTmp As String
Dim AppExcel As New Excel.Application
Dim wBook As Workbook
        SelTmp = Selection.Text 'Присваиваем SelTemp значение строки выделенного текста
    Set AppExcel = CreateObject("Excel.Application") 'Запускаем Excel
    Set wBook = AppExcel.Workbooks.Add 'Создаем книгу
        AppExcel.Worksheets(1).Cells(1, 1).Value = SelTmp 'Присваиваем ячейке с координатами (1;1) ("A1") значение выделенного текста
        AppExcel.Visible = True 'Показываем окно Excel
'************************************************************************
'* Если это использовать в программе, то раскомментировать строки ниже: *
'************************************************************************
'        AppExcel.ActiveWorkbook.Close True
'        AppExcel.Quit
'    Set wBook = Nothing
'    Set AppExcel = Nothing
End Sub