Sub EarlyBinding() Dim objExcel As Excel.Application Set objExcel = New Excel.Application With objExcel .Visible = True .Workbooks.Add .Range("A1") = "Hello World" End With End Sub