Oi Álvaro,
é sim. Para criar um novo Workbook, pode fazer assim:
Dim xlApp As Object
Dim xlWkb As Object
Dim xlWks As Object
Set xlApp = CreateObject("Excel.Application")
Set xlWkb = xlApp.workbooks.Add
Set xlWks = xlWkb.worksheets(1)
xlWks.Range("A1").Value = "Teste"