Visual Basic - abrir nueva hoja de calculo desde visual

Estoy haciendo una aplicacion en visual para mandarle datos a excel , y quiero que en lugar de mandar llamar un archivo ya existente(test1.xls) , me abra siempre un nuevo libro , cada vez que ejecute el sig. codigo

Set objExcel = New Excel.Application

Dim objLibro As Object
Dim ruta As String
ruta = "C:\test1.xls"

If Len(Dir(ruta)) > 0 Then
Set objLibro = objExcel.Workbooks.Open(ruta)

objExcel.Visible = True
Else
MsgBox "El archivo no existe"
End If
ojala alguien me pueda ayudar
gracias

Estimado amigo, acabo de probarlo en un nuevo proyecto y creo que funciona correctamente. Espero que sea esto lo que necesitas. Te adjunto un pequeño código:

Set HExcel = CreateObject("Excel.application")
HExcel.Workbooks.Add
HExcel.Visible = True
Set HExcel = Nothing

Espero que sea esto lo que necesitas. Si necesitas alguna aclaración mandame un correo y lo comentamos.

Saludos Pola