'Sin utilizar referencias Dim objApp As Object Set objApp = CreateObject("Excel.Application") With objApp .Workbooks.Add .ActiveSheet.Name = "ENTER" .Visible = True End With